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-S$ep-1984 00:43: AX-11 Bliss-32 V 
~3ep-19 4 00:48:93 LIBRTL-SRCILISCV 
ZTITLE "LIBSCVT_DX_DX any to any data type conversion’ 
MODULE LIBSCVTDRDx™ ¢ ' General data t Bs conversion. 
IDENT = '1-009" i File:LIBCVTDX.682 Edit: FM1009 


)z 
BEGIN 
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'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 

ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 

!t ALL RIGHTS RESERVED. 

'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
t® INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
:* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
!® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


® 
® 
sd 
® 
*® 
cm 
® 
tt 
® 
® 
ie TRANSFERRED. * 
® 
® 
* 
® 
*® 
® 
*® 
* 
® 


=wW 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
:; eORPORAT Ion NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
tt SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


eR ARE RAR EEE E AAA AAA REE ERE 
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FACILITY: General Utility Library 
ABSTRACT: 


This is the general data yo conversion facility. 
Given two parameters, one the source descriptor, 
second the destination descriptor this routine 

will convert the source to destination. ; 
The permitted set of class, data type and combination 
of the two is a subset of the ones allowed in the 
calling standard. 


The following is a general description of LIBSCVT_DX_Dx. 


i 

i 

i 

i 

i 

i 

i 

i 

t 

i 

i 

' 

' This module is divided into two routines on the bases of functional 
; modularity. The front-end (LIBSSFIND_CVT_PATH) 

: The front-end frees the back-end of ny error checking of invalid 
: class or data yee or combination of the 
! bnew nodes of which class or data type is being converted. The only 

! information that the back-end knows about is what the conversion path 
' is, and where the intermediate data is. The back-end then scales the 
: intermediate data if necessary and converts it to the destination 

H data type. Note that even though a scale may not be necessary, the 

: intermediate data is still converted to a second intermediate data type 
ust to be consistent. 


== 


and back-end (LIBSCVT_DX_DX). 
two, or decisions that requires 


| 

d. 9 

LIBSCVTDXDX LIBSCVT_DX_DX any to any data type conversion 16-Sep-1984 00:43: AX-11 Bliss-32 V4.0-74 Page 2. 

1-009 “ 6-Sep-19 4 99:49:93 LIBRTL.SRCJLIBCVTDX.B32;1 (1) | 
; a8 038 1! Upon entry to LIBSCVT_DX_DX, LIBSSFIND_CVT_PATH routine is called. | 5 
3 1: LIBSSF IND pinata has 4 functions, they are : ; 
: 60 60 1! a. Find any errors concerning the class, and data type of ‘ 
s; $6) 61 1! source and destination descriptor. fhese errors can be ‘ 
; 6¢ p66 1} invalid class, invalid data type, or invalid combination | : 
3; § 065 1! of a class and data ¥ e. It can also tell which descriptors : 
; 664 ppee ; ¥ are supported by the VAX-11 calling standard and which are ‘ 
; o? BRee : supported by this routine. | : 
: 67 0067 1! b. Figure out what the conversion path is, i.e. class,dtype --> class,dtype. ‘ 
>; 68 0068 1! these paths are given names such as K_SMLINT_DEC, ahich reads r : 
; $3 4 , ! } from small integer to decimal" (categories are defined later). : 
; wy 0071 1! c. Convert the source data to an intermediate data. The seroteay | ‘ 
; Lf: st : used to select the appropriate intermediate data is explained Later. : 
3; 6 «66 0074 1! d. Put whatever information needed about the source and destination ; 
2 a 0075 1! descriptor in two structures passed by LIBSCVT_DX_DX. ; 
: 7 0076 1! These two structures SRC_INFO, and DST_INFO, contain the kind | : 
3 7 0077 1! of information that can only be visible when the class, and ; 
he 0078 1! data yee of the source and destination descriptors are being : 
3; 0079 1! manipulated. These two structures can be expanded to contain : 
3 Ms pee : more information as new class, and data types may require it. : 
3; 682 0082 1! $ 
6 (OSS 0083 1! 2. The ed 4 pala is an overview of the design of FIND_CVT_PATH : : 
ee = 0084 1! The problem to be solved is to recognize ‘‘valid’’ descriptors. ; 
36 CUS 0085 1! A descriptor is valid if CLASS and DATA TYPE fields of the descriptor 3 
; | 686 0086 1! pet isty cortere conditions. : 
; OT 0087 1! With this problem in mind we shall use some formal language theory 3 
3; 68 0088 1! and applications to solve it. : 
; 0089 1! Let us take a hypothetical problem that is very close but smaller in : 
te... 0090 1! magnitude of the original problem and solve it. : 
5; wi 0091 1! Suppose that the set of classes that we are interested about are 3 
a . | 0092 1! CLASS = { ci, ce. c3 }, and the set of data types are i ee : 
; #293 0093 1! DTYPE = { dl, d2, d3, d&4 }. Then suppose that one a certain combinations F 
; 9% 0094 1! of CLASS and DTYPE are valid, and they are cld3, cedl, c3d2, ¢3d4. : 
; 0095 1! Hence sanguage L(G) is consisted of sentences { c1d3, c2d1, c3d2, c3d4 }. 3 
; © 0096 1! First we need to come up with a grammar for the Language L(G). 3 
; 0097 1! Grammar for L(G) : ; 
; BS 0098 1! Z ==> <$1>d3 | <S2>d1 | <S3>d2 i <S3>d4 : 
; 0099 1! $1 ==> ¢1 : 
: 100 0100 1! 6 --> ¢ ; 
: 101 p10) 1 | s§ <-> ¢ | : 
: 106 108 1! $4 --> c4 : 
; 10 0103 1! A close look shows that this is a Chomsky type 3 regular grammar, 3 
; 104 0106 1! because productions are all— 3 
: 105 0105 1! NON-TERMINAL --> terminal 3 
: 106 0106 1! or : 
; 107 0107 1! NON_TERMINAL ==> <NON-TERMINAL>terminal | : : 
: 108 0108 1! This type of grammar has the nice feature that its sentential forms : 
3; 109 0109 1! can be ‘‘accepted’’ by a finite state machine. : 
; 110 0110 1! The sentential forms of this grammar can also be accepted by a : 
s 991 Bits 1? deterministic finite automaton because each right hand side has a : 
3 ie We 1! unique left hang side. ) ; : 
3 UT 0115 1! A DFA can be written to pocegni se sentences of this grammar and to : 
: 61146 0114 1! reject sentences that are not in the Language. ; 
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The or iginet problem is very similar to this ig hg tees. one, the 

{ ifference is that the set CLASS and DTYPE is Larger. 
LIB wth oa. S just _a DFA that accepts sentences of Language L(V) 
when L(V) is pairs of VAX=11 DSCSK_CLASS_x DSCSK_DTYPE_y. The grammar 
for L(V) is very similar to the grammar for L(G) above. 


VTDX.B 


In order to achieve the conflicting goals : fast, not large 

in size, expandable, no loss of precision as a result of intermediate 
values, there is a need for a compromise. The yt eo 5 for categorizing 
the data types is based on three goals: precision should not be lost 

as a result of converting to intermediate data types, data types of 

the same category should share similar internal representations, so 

they can be converted to and from each other easily, and seperate data 
types that the machine architecture has not yet provided machine 
instructions for. The third goal provides easy and fast conversions for 
data types that there exists machine instructions for their conversions. 
The current categories were formulated by the following strategy: 

Divide the integers into two groups, small and Large integers. 

Divide the ayoky numbers into two categories small and Large 

floating. The small category will be the data syeee 

that machine instructions are available for their conversions. 


The large category consist of data types that there are no machine instructions for 


their conversions or the instructions must be emulated (LIBSEMULATE) 
for some VAX machines. 


This eateger sees 700 will provide the callers that are attempting a ‘simple’ conversion 


a fast and smooth way. 

As_a result we have the following : 

INTEGER ==> SMALL_INTEGER | LARGE_INTEGER 

FLOAT =-> SMALL_FLOAT | LARGE_FCOAT : 
SMALL_INTEGER ==> bu i wu: biwi ‘Intermediate L 
LARGE_INTEGER ==> lu i q ‘Intermediate OU 
SMALL_FLOAT -=> f i d 'Intermediate D 
LARGE_FLOAT <--> gi h !Intermediate H 
DEC “-> nui: nl i nloi nr i nro i nz !Intermediate P 
NBDS --> nbds Intermediate T 


Upon return from LIBSSFIND_CVT_PATH, the main routine then enters a 
CASE statement that selects the desired conversion. This CASE 
is explained in detail in the first paragraph of the statement. 


ENVIRONMENT: User mode - AST reentrant 


Farokh Morshed 01-09-1981 


MODIFIED BY: 
1-001 = Original. FM1001 01-09-1981 
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1-002 - Fix the problem with (SMLINT, LRGINT 
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DEC) to NBDS having an explicit 
sign when plus shouid be implied. Also CDEC_NBDS) scaled twice, 
ed it to scale only once. 


chang l FM 5-NOV-81. 
1-003 - Fix the problem with CK_DEC_NBDS). The Length of CLASS_S_DESC was 


Ue 


not being reset. F 


L} 
1-004 = Put in a new date, type. DSCSK_DTYPE_VT. Cleaned up data type B 
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1-005 - Fix the bug where destination Length is not picked up from DST_INFO. 
FM 2-DEC-81. 
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: i 179 } 1-006 - Cpmepents | wich are addressed by things Like PACK_ZERO should be 

3 a r 

; (1746 \fe 1: 1-8 7 = LIBS_ ROPRAND > was left out of the a°*5°B rand handler. FM 8-FEB-82. 

s 175 175 1:74 8 - A couple of missing dots fixed - 

3 176 176 1 ' 1-009 = The wo ownne problems were Sxed: FM T-Ap r-83 

3 ivr B12 1 ue © macro M_SCALE_OU_H did not grab the low order 8 bytes of 

: 179 0179 1! The macros M_SCALE_P_D and 4. SCALE_P_H called the OTS$ routine 
; 180 180 1! with a ee | e of the wron sign 

: 181 0181 1 The cases (kK seme NBDS] and CK_LRGFLT_NBDS) did not Pick up 
: 1s b186 1! the correct BIGITS_IN PRACT when calling the FORSCVT 

eh 1 1! The case CK_LRGFLT_NBBS) did not pick up the correct one er of 
; ; 2 ; : : } digits in exponent when calling FORSCVT_H_TE. 

: 186 0186 1 
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of future support of BUILTINs. 


CVTROUD = 
evr LIBSSCVT_CVTROUD_R1 z, 


UH = 
LIBSS$CVT_CVTROUH_R1 %, 
CVTRDQ = 
LIBSSCVT_CVTRDQ_R1 %, 

LIBSSCVT_CVTDH_R1 %, 

LIBSSCVT_CVTLH_R1 %, 
VIRHL = 

LIBSSCVT_CVTRHL_R1 %, 
CVTRHO = 

LIBSSCVT_CVTRHO_R1 %, 
CVTRHQ = 


HQ = 
LIBSSCVT_CVTRHQ_R1 %, 
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84 CVTHF = 

85 LIBSSCVT_CVTHF_R1 &, 

87 LIBSSCVT_CVTHD_R1 %, 

88 CVTHG = 

89 LIBSSCVT_CVTHG_R1 &, 

91 LIBSSCVT_CVTGH_R1 X, 

9 CVTLB = 

98 LIBSSCVT_CVTLB_R1 3, 

95 IBSSCVT_CVTLW_R1 %, 
= 

97 IBSSCVT_MULH2_R1 X, 

99 ; IBSSCVT_DIVH2_R1 . 

01 LIBSSCVT_MULD2_R1 %, 
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5-609 Declarations aarti 90:40:93 ETERTL SRe LIBCVTDX.B32;1 
45 LIBS_INVDTYDSC, ! Invalid dtype in descriptor. 
re : LIBS. INVELAD SC. ' Invalid class in descriptor. 
4 4 LIBS_INVCLADTY, ! Invalid class dtype combination. 
48 4 LIBS_INVNBDS, ! Invalid numeric byte data string. 
49 034 LIBS_DESSTROVF, ' Destination string overflow. 
50 034 LIBS_OUTSTRTRU, ! Output a truncated (warning). 
51 034 LIB$_FATERRLIB, ' Fatal error in Library. 
26 034 LIBS_STRTRU; ! String truncated. 
5 034 
54 034 : 
55 034 ! MACROS: 
2 034 : 
5 035 '<BLF /MACRO> 
58 035 + 
59 035 ! These MACROs have been put in the module declartion part to make the routine cleaner, 
60 tH ! and easier to read. 
61 035 le 
¢ 035 
6 035 MACRO 
64 035 '¢ 
65 Bs2 ! These MACROs are defined for the purpose of clarity, less typing, and anticipation 
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Declarations . ie a et TELE: UTBRTL SRC IL ISCVTOX.B3 37 
m 0395 1 Divd2 = 
0 38 1 LIBSSCVT_DIVD2_R1 %, 
M § 97 (1 CMPH = 
98 (1 LIBSSCVT_CMPH_R1 %, 
m 0399 1 = 
H's : LIBSSCVT_ASHP_R1 %, 
oh 1 } These MACROs define parts of the intermediate data buffer. 
m 0404 1 LONG_1 = 
0405 1 s. © RR. 8 &. 
M Bee 1 LONG _2 = 
0407 1 &. 8 82. 6 &, 
™ 0408 1 LONG = 
0409 1 8, 0. 32, 0 %, 
™ 0410 1 LONG_4 = 
0411 +1 T2, 0, 32, 0 %, 
Mm pels 1 LONG_5 = 
0413 1 T6, 0, 32, 0 %, 
M0414 1 LONG_6 = 
0415 1 20, 0, 32, 0 %, 
m0416 1 LONG_7 = 
0417 1 24, 0, 32, 0 %, 
m 0418 1 LONG_8 = 
0419 1 28, 0, 32, 0 %, 
™ 0420 1 ' §_LONG_1 = 
0421 1 o, we me F oe 
m 04 ; 1 $_LONG_2 = 
3 1 o ws mee 8 Ee 
M0424 1 $_BYTE_1 
0425 1 o Os Gs t Me 
mM 0426 1 BYTE { = 
0427 1 0, 0. 8 0 %, 
M0428 1 BYTE 2 = 
Boe? 1 7, 0. 8 08, 
m 0430 1 $_WORD_1 = 
0431 1 0, 0, 16, 1 %, 
4 043¢ 1 worD_{ = 
0433 «1 0, 0. 16, 0 %, 
M0434 1 WORD 2 = 
0435 1 2, 0, 16, 0 %, 
M0436 1 NIBBLE_1 ‘= 
De3s / ‘e 0, 0, 4, 0 i, 
<3 ' These MACROs scale the longword in INTMED_DATA buffer. 
fd rk 1 M_SCALE_L_L = 
f Ree 1 
m 0443 1 WHILE .SCALE GTR 0 DO 
M0444 1 N 
6 0445 1 INTMED_DATA CLONG_1) = .INTMED_DATA CS_LONG_1]*10; 
” 6 1 SCALE = .SCALE - T; 
M 044 1 : 
m 0448 1 
" eh ' WHILE .SCALE LSS 0 DO 
m 0451 1 INTMED_DATA CLONG_1]) = .INTMED_DATA CS_LONG_1]/10; 


Bae Bee Be Oe Be Oe SH Be Se Se Se SH Se Se Se Se Be Be Be SHS Se Se Se SH Se Se Ge Se SH Se ae Se SH Se Se Se Se Se Se Se Se Fe Se Se Se ae Se Se Se Se Se Se se Seas 


9 

IBSCVTDXDX LIBSCVT_DX_DX any to any data type conversion 1b-se 1984 00:43: AX-11 Bliss-32 V4.0-74 Page 8 
4 805 Declarations . J ” bosep- 1984 99:40:93 LIBRTL.SRC (iscvtbK 03951 ’ =) 
> 359 M04 g 1 SCALE = .SCALE + 1; ‘ 
; 360 M 04 1 END : 
3; wel M0454 1 : 
3 o¢ 455 1 Be | 3 
3 4 8 1 !+ : 
; ee te : ; Convert L to OU and scale it. INTMED_DATA is used for L and OU : 
; 08 M 0089 1 M_SCALE_L_OU = : 
; 36 M0460 1 | ; 
; 368 m 0461 1 IF_.INTMED_DATA [S_LONG_1] LSS 0 | ‘ 
> 369 M re} 1 THEN ; 
: 370 M0463 1 GIN ; 
; 371 mM 0464 1 INTMED DATA CLONG_1] = ABS (.INTMED_DATA [S_LONG_1}); : 
: 37 M0465 1 SRC_INFO CS_SIGNJ~= 1; : 
s oF Mm 0466 1 END; : 
: 374 M Bree 1 : 
; 75 M0468 1 WHILE .SCALE GTR 0 DO . 
3 «Sf6 M0469 1 BEGIN F 
3 377 M0470 1 LIBSSCVT_SCALE_OU_UP_BY_10_R1 (INTMED_DATA); ; 
3; se M047) 1 SCALE = JSCALE™= T; : 
: 379 M berg 1 END; 3 
; 380 m 04735 1 : 
; «4381 M0474 1 WHILE -SCALE LSS 0 DO : 
; M0475 1 BEGIN : 
; 38 M0476 1 LIBS$CVT_SCALE_OU_DOWN_BY_10_R1 (INTMED_DATA); : 
; $ee M0477 1 SCALE = TSCALE™+ T; : 
; 385 M0478 1 END : 
; 386 M0479 1 : 
3 4H 0480 1 Be : 
; 388 0481 1 !+ : 
; ton bees : Convert L to D, and scale it. INTMED_DATA buffer is used for L and D. ; 
; 331 M0484 1 M_SCALE_L_D = : 
; M0485 1 CVTCD” CINTMED_DATA, INTMED_DATA); 5 
: M0486 1 
3; 394 Mm 0487 1 WHILE .SCALE GTR 0 DO 
3 3 M0488 1 BE 
; 396 m 0489 1 MULD2 (UPLIT (%D'10"), INTMED_DATA); 
; 397 0490 1 SCALE = .SCALE - 1; 
; 398 m 0491 1 END; 
; oy M 985 1 
: 400 M0493 1 WHILE .SCALE LSS 0 DO 
; 401 M0494 1 BEGIN 
; 40 is) Beg2 1 DIVD2 (UPLIT (%D°10"), INTMED_DATA); 
; 40 M0496 1 SCALE = .SCALE + 1; | 
: 404 M0497 1 END 
: 405 M0498 | 
: 406 0499 1 z, 
: 407 0500 1 !+ 
: 408 0501 1 ! Convert L to P, and scale it. INTMED_DATA is the buffer for L and P. 
; 409 6208 1 !- 
: 410 m 0503 1 M_SCALE_L.P = 
: (411 a B20e 1 
3 ai6 : 0306 : IF .INTMED_DATA CS_LONG_1] LSS 0 THEN SRC_INFO CS_SIGN] = 1; 
3 414 ™ 209 1 NO_DIGITS = 31; 
; 415 a 0508 1 CVTLP CINTMED_DATA, NO_DIGITS, INTMED_DATA); 
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IBSCVTDXDX LIBSCVT_DX_DX any to an; data type conversion 16-Sep-1984 00:43: AX-11 Bliss-32 V4.0-74 Page f 
4-609 Seclerations ss gr eee eee 98:43:88 HRT tees Pecl tae 895.1 . ( 
: 41g M0509 1. . | 
: 41 m 0510 1 IF .SCALE NEQ 0 2 
: 418 m 0511 1 THEN : 
; 41 4 \¢ 1 BEGIN e | 
; 420 m 0513 1 MOVP (NO_DIGITS, INTMED_DATA, TEMP_BUF1); | 
$ Q 1 . ate : 9 (SCALE, NO_DIGITS, TEMP_BUF1, ZREF (5), NO_DIGITS, INTMED_DATA); £ 
; 4 : mOs1g | ; 
> 424 Ts. % : | 
; 425 218 1 !¢ -, 
3 : § 213 ! } Scale the OU in INTMED_DATA buffer. : 
; 4628 ni 2 1 4 M_SCAL® _9v_OU = : | 
> 429 m Ob¢e | 31 
> 430 m 0503 1 WHILE .SCALE GTR 0 DO | 
3; 431 i B2 4 1 BEGIN ; | 
: 4 é M0525 1 LIBS$CVT_SCALE_OU_UP_BY_10_R1 (INTMED_DATA); + 
: 4 M0506 1 SCALE = [SCALE~- T; ‘. 
: 434 m 0507 1 END; 3) 
; 435 M0528 1 3 | 
: 436 ™ 0529 1 WHILE .SCALE LSS 0 DO e | 
: 437 M0550 1 BEGIN 3 | 
: 438 ™ 0531 1 LIBSSCVT_SCALE_OU_DOWN_BY_10_R1 (INTMED_DATA); 3 | 
> 439 i b236 1 SCALE = [SCALE™+ T; : | 
; 440 Mm 05 1 END 3 | 
3 441 m 0534 #1 3 | 
3 44 0935 1 x, | 
3; 44 0536 1 !+ 3 | 
3 ret Beet : : Convert OU to D, and scale it. INTMED_DATA is used for CU and D. ; 
3; 446 m 0539 1 M_SCALE_OU_D = 5 i 
3 447 0540 1 CVTROUD (CINTMED_DATA, TEMP_BUF1); 3 
> 448 m 0541 1 CHSMOVE (8, TEMP_BUF{, INTMED_DATA); 31 
3; 449 4 B2e§ 1 gs | 
; 450 Mm 054 1 WHILE .SCALE GTR 0 DO 3 | 
; 451 M0544 «#1 BE 3 | 
3 $26 m 0545 1 MULD2 (UPLIT (%D°10"), INTMED_DATA); 3 1 
; 45 M0546 1 SCALE = .SCALE = 1; 2 
> 454 M0547 1 ; 31 
: 455 M0548 1 3 
; 456 m 0549 1 WHILE .SCALE LSS 0 DO : 
; 657 m 0550 1 EGIN $ 
: 458 m 0551 1 DIVD2 (UPLIT (%D°10"), INTMED_DATA); é 
; 459 i] 226 1 SCALE = .SCALE + 1; 3 
; 460 m 0553 1 ND 2 
: 461 a 0554 #1 3 
3 re 4 555 1 i, 3 
; 46 228 1 !¢ : 
s rie 230 ' Convert OU to H, and scale it. INTMED_DATA is used for OU and H. 3 
; 666 4 0389 1 M_SCALE_OU_H = 
: 667 ™ 0560 1 CVTROUR (CINTMED_DATA, TEMP_BUF1); 
; 468 4 361 CHSMOVE (16, TEMP_BUF1, INTMED_DATA); 
; 470 4 368 1 WHILE .SCALE GTR 0 DO 
; 471 m 0564 1 
s 672 m 0565 1 MULH2 (UPLIT (%H*10"), INTMED_DATA); 
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4-605 Declarations . . 7 b-Sep-19 4 TELE: LIBRTL.SRCILISCVTOX.B3 31 
: 473 i 66 1 SCALE = .SCALE - 1; 
3; 474 m 0567 1 END; 
s 675 M oe 1 
: 47 ™ | 1 WHILE .SCALE LSS 0 DO 
: 47 m 0 1 BEGIN 
; 478 ™ 0571 1 DIVH2 (UPLIT (%H'10"), INTMED_DATA); 
> 479 ™ 57¢ 1 SCALE = .SCALE + 1; 
; 480 ™ 2 1 END 
: 481 m 0574 #1 
>; «48 0575 «(1 Be 
>; 48 B2f8 1 !¢ 
3 re: 037 ! ; Convert L to H, and scale it. INTMED_DATA is used for L and H. 
: 486 i. 38 1 M_SCALE_L_H = 
: 487 m 0580 1 CVTCH” CINTMED_DATA, INTMED_DATA); 
: 488 m 0581 1 
3; 489 4 b28¢ 1 WHILE .SCALE GTR 0 DO 
; 490 m 05835 1 N 
: 491 m 0584 1 MULH2 (UPLIT (%H'10"), INTMED_DATA); 
; 49 40585 1 SCALE = .SCALE - 1; 
; 49 M0586 1 ; 
7 494 m™ 0587 1 
; 495 m 0588 1 WHILE .SCALE LSS 0 DO 
: 496 m™ 0589 1 BEGIN 
; 497 ™ 0590 1 DIVH2 (UPLIT (2H'10"), INTMED_DATA); 
; 498 ™ 823) 1 SCALE = .SCALE + 1; 
; 499 ‘sl 236 1 END 
; 500 m 0593 1 
3; 501 B2ge 1 Re 
3 206 595 1 !+4 
3; 3 0596 1 ! Scale D in INTMED_DATA. 
: 504 0597 1 !- 
; 505 m 0598 1 M_SCALE_D_D = 
; 506 m 0599 1 
3; $07 ™ 0600 1 WHILE .SCALE GTR 0 DO 
: 508 ™ 0601 1 
; 509 i] Beng 1 MULD2 (UPLIT (%D'10"), INTMED_DATA); 
3; 510 "0603 1 SCALE = .SCALE - 1; 
. St m 0604 1 3 
> Se ™ 0605 1 
; S13 ™ 0606 1 WHILE .SCALE LSS 0 DO 
3; 514 m 0607 1 BE 
: 515 ™ 0608 1 DIVD2 (UPLIT (%D°10"), INTMED_DATA); 
3; 516 i] 3008 1 SCALE = .SCALE + 1; 
: aif ™ 0610 1 D 
s 518 M0611 1 
s 319 pote 1 i, 
; 339 0615 1 !¢4 : 
3 3 1 Sere \ : Convert D to H, and scale it. INTMED_DATA is used for D and H. 
; 25 fl o18 1 M_SCALE_D_H = 
P 2$¢ : 2d : CVTBH CINTMED_DATA, INTMED_DATA); 
; 526 - 0319 1 WHILE .SCALE GTR 0 DO 
: 44 ™ 0620 1 N 
:; 528 ™ 0621 1 MULH2 (UPLIT (ZH'10"), INTMED_DATA); 
3; 529 ™ 0622 1 SCALE = .SCALE = 1; 


o 
e 
° 
o 
° 
e 
a 
eo 
: 
a 
& 
e 
. 
a 
~ 
oO 
. 
a 
. 
o 
. 
* 
- 
co 
. 
Yo 
. 
e 
. 
. 
o 
e 
° 
o 
e 
° 
e 
7 
e 
7. 
e 
e 
. 
e 
2 
° 
* 
o 
. 
e 
. 
e 
. 
a 
. 
e 
. 
e 
. 
e 
a 
e 
. 
. 
. 
o 
. 
a 
. 
o 
© 
° 
. 
” 
e 
a 
e 
° 
° 


i 


LIBSCVT_DX_DX any to any data type conversion 


Declarations 


Pad 
a 
Pa 
oO 
— 
> 
YU 
aA 
foe] 
— 


3 


se 
= 
u 
mn) 
4 
o 
at 
w” 
t 
” 
a) 
oO 
“ 
2 
_— ee 
g _~ 
ve < 
a — 
” <= 
a 
2 t 
w a 
= ws 
= = 
ra 
~ 2 
oOo ot 
w © i. 
” ” > 
ad - o 
— 
~ oo a] 
oO _ c 
a a «o *e 
w a ~ 
~ i=) a _ 
Ly 2a 7 
pn 4 = = 
ve . °o @ 
< ~ - ? 
a wm a. 
. rd wo Zee 
~ @ we 
. nu ” _ 
~~ ot 3 + 
- —_ ae — ee 
ee 2 Lede ~ @Mere " NMe 
~ ~ ~ i oe ee 
< <x <x u ae — Se 
= - = w =z=-— x oOouna~- 
<< <= <I [. 4 we - —— 
a oa a ee -> 4 aocoa.uw 
‘ a A @ ao ‘ &> 
a ao a . >. 6 ‘ =} wa 
w w w < <a Qa - 6 os 
= = = = -= w -_ a o 
-_ _— _— oe cq Cw = ee ‘t= 
a 2 2 - oS or — macnn w " 
o- os - z i i za ze ie 
w 3} a: — wetma tn] _ 
be ° . + w ww jHOotw + © o 
~ -~ ~ ‘=z =e ( eew 
- - - nr &- -—— ° “”oUu2zM . . 
Ore Oe Ore uw 2 zo ee wwe oe _- 
-— -— Set ed — eon - Zwoa 
oO - oe oO - oO a Oor-wa ft . . 
o i+ a xi a iF we . . § @ wz eemnw wn 
rad re ee zw “no od 2320 te - 
o “ww o ~w o ~w — —-z oe — AAW 
| . J ad i- oe (Ss) § www o . 
” e< < = e< ” ee < ve 2 we ) YVeNnNwnEt O Oo 
Yn Ww oa —- ww YY ew _ c=. © uw aZeaoao te 
«al gttt < o MW WM <x yy Aa aw wo Ys 
ae a ae ae a . ‘so i 4 Cc ot) ~ mw ~N 
w > o w > w 2 ‘ oOo w Ov e mOV ive ee 
—_+ ~~ a —_+ ~i + ~il a u = za 2m nHanMmnw=zt a => 
< ws 4 < w ~~ we . Qww § @ @ 
waezow = nw wazeouw wazow =z unm w 2 > “n"oaar '2 es 
= Mero - Mee Dioes No Ty _ —- a + ad oO D>rpz titi a =a 
a ~oO>aa — = Out o o> aa 2zaxe a << YUY>rta Oe~ NN EF VE 
z Www = _ ft wove Weve _ wo Ft ve wows °o “> ‘(io ww ww 
w wMOowMmw xXx wOtow woonww Qe wv MW @OEdtw ~~ A=MnnY F-_ Dre 
od c ' J ad c oa ~ 4 2AMne *z 
_ - wo “ —- wt w Qq w -<auw ioe} 
=x a = = ao w™ wt aHO> je eT 
= z<«ts =z ao0wUCr ec Poll lt ~~ £20000 —- 
=) vw j wo 
oe oe eo w 
o —_ ny . —_ a ._ 2 t 
a= 6 6& = en waz Cc = 
Vv (S) °o 
” ” VY 
+ ‘ + a) ce 1 


EL LLCO 


PYF NOP DAO — WINT NOR. OPO CIN TM OR. OPO CUM TIMOR. OBO MUM TN OR. OBO CUM TIN OR. COO 
DIBDOOOIDOOOGOGG GOL GGGOLGGOGGO OOOO DO DOOOGGLLGGLGLH DSO OGG OO OS 


READER De a eT ee ROAR RE EE Bn nS 8 on ee eo Oe Sate 
PVA UII IIIA SF WT AT ST ST ST TTT TAMNMNNNANAN OOOO D000 0ORAAAAPAAARAR. 20000000000 
LYDLULVLVLVULVLVLVLVLVLULVLVLVLVLVLVLVLVULV ELV VLU ELV LULL VL LV LVL LVL ELV EL LVL LV ELVA LEED LVL EDEN IVIL ALN SVEN EEE 


ed ed eh eh dd eh od od eo oe oT oT oe oe eT ee oe) 2 ee ee ee *@ ee se rere *e*S rere rere *S*ere*ea*S*H*S*era terete 


LIBSCVT_DX_DX any to any data type conversion 
Declarations 


LIBSCVTDXOX 
-009 


|" 


ee 
“~~ 
~~ 
w 
_) 
< 
= 
” 
‘ 
@ 
2 
uw 
' 
Me 
io 
o 
3 
o 
4 
— 
ing 
w 
a 
2 
> 
‘ 
@ 
2 
w 
id 
4 
se 
. 
uw 
= 
< 
= 
” 
. 
‘ 
. 


° “ ° “ 
a > x= > 
oO oO 
wo La a] co 
c ee. Po c ee ad 
© ~ “ oe ~ - 
= ' - ‘ 
*. a “ Oo A a _ oOo & 
~ | @ = @ 
°. << [= @ . mt . @ . — 
~ a o 4 7 =! o t 4 J 
is <= w= a _— res a - 
— a Zee =< uw Z-- « Mad 
< 1 a =] w= [7] ao] wae 2 ” 
a a a Lad 4 a a _ 1 = 
4 w “” + a uw wn" + a as 
a = =] s eos >] s set 
w = NV =z oa NVWe- = a 
= =z i) ear 4 w ed elk oe 2 
t= oe - an Pd — - “AZ > 
Zz ~ oun - ooea- -_ 
_ < oe =€68 — 4 —— 8 =! 
ia _- sd ooa «+ _ - ooa + - 
a < ( &w i) < ' a&w 4 
- i a ooww cad oa Ss ww oe 
os a oOo i 22ew @ a mu o 
~ ra —_ Qa ° Qa 7 a e Qa a 
at oOo ' w 7“. wt 8 oul w es wt 6 ad 
- _— > = acini = mr<cn Ww 
< ‘ @ om z2ae-met 2 _ ze em z 
a cae 4d 2 witmraw w z wetmaw w 
. fi @ 2 _ Ao trww = a aAOotww = 
— a a =] ' --< me | &-< co 
w a oO “Mou2z4 WVovu2— 
" = a ass 2 Ww Ze o . er ae Oo 
e - - a Zwow~ aw Zwow~ 
Lm] z= oo > °o = 7 or 4a ” - or 4a ” 
z - o2 Oo a o+¢ wz § ” wz § ” 
o a a a 2-3<a 1 J wv 2-3<a 1 a 
_ -_ Oo ww Oo ww ~ — AA- aw — AAK- 
” Nm | -ab ad @ iwouw w «o t(wouwu =| w 
t uu a& ace ” «ae v YVuNnne a Vv YVNnwnre a 
” 2D &—- Vu ”Y wv 7) aer-aa> <x 1) er-aa> <= 
tt ovo ”m 4+ wn NewtJOo Ww Vv Nw Ww =) 
a te te ao] “Oo ef 2 zw ao) “oO fsa zy 
oO qa w w 4 SVUuWn —-— Ye * . c aVwun —- Ye . e. 
=z J >t —_+ >t @e nanne <_< oO ar @ nanrone <« oo ar 
z ww <« wo <q w wwore Zu ue 2 wwoOo - Zw he 
con —- vwZzew vVvezaw > umoaa YY =£0O =| we >» unoaa "oY =£0Oo = we 
to —~ WeMioes WAMU (=) —-2 6 oH > = —-2 6 oH * 
4) “OM<a -OMzta aw Ow be xr=~nwn ra 
a=2o wew®z wow °o Lo) ‘on — w °o [&) (n — w 
Yw FS wOsw wosmw ~~ AMMM>D CO ~~ AaeMmMnM> OC = 
=< manne 2Zz ean 2zZz 
- = “_ qa w aac ws aq w <a w 
=> 6 r 4 1HO>4Je ut aAaO>wIIe UT 
ve 3 3 ~~ £20000 ~~ £2000N0 —r 
e wo . wo 
ow ow 
.» » ‘ > i 
se Cc = c = 
°o °o 
vu vw 
+ 4 a a 


Ce eh ce eel eel eel oe el el cl cl el oe el el el el el el el eel el cl el ek ee ce eh cl el el el ol ee oe el el el el a ek oe ee el ol oe ek 


DK OWMNT NOR. DHOOM NMINTMAOR- DAO WMT NOR- DHOOM TFTMNOR. DOOM MUM TNOR- DHOOM TNO 
@OGNG0G0 60.60 60 60 GO COA AAA AA AAA AOD OO SOOO 6 NINN CUCU PIETY 
WOOOGODOOOOOO OODOODODODOOORA-RARARARARARRARRRARRARARRRRRRRR RRR ARAL 
COOOSOOOOCOSSOSOSOSOSOSSSSOOSOSOSOSOSOSOSOOSOSOOSOSOSOSOSOSOSOSOSOSOSOOOSOOSOSSSSSSSSCSoO 


ZETETIESISETSESITEESESE ZETSTEITTTETEITEIEEEE ESELETITTEILAEIEIEIEIcs 


KORO UM TNOR OPO TFNOR-OPOK— AMS KHoR UM NOR ORCK—UMTNHOF-ORO—UM 
DODFOOCAOP CARP OOSCOD OOO Dee au niRa me MAS SSS 
MNAAMAMIAMIAININI DDD DDDD0DD00000D DOOD DOOD D000 000000000000 05900 


FRCS PSPS FS HS HS CS FSCS SCS FS FS SSS SS SS HSCS SS *S HS SCS *S*S SSCS *S ee se se se sese *See se sese re *S ease *Se*S*erte*Seaet*ererearertea*e sere 


OCC CCC CCC CCC OCS eee 


nN 
~ 
a 
on 
eo 
a 
| 
| 
| _- 
j +% 
nm 
we) 
~o@ 
t . 
ox 
“a 
re ~ 
>> — 
w - 
wom — 
me - | 
‘ou cS) | 
wr @e | 
“nu ee 
“—co 
—WN A 
@- @ 
—_ — 
ee al 
-—-a 
'‘@ = 
< o 
<u se 
Sw 
w 
— 
w 
w 
meu ” 
own a 
Mo a 
ver ce 
oo oe el 
om and 
o- v 
a 
wv a 
a000 
on - 
-— 
te 
aa 
oee 
a ts 
ooo 
_- 


c 
o 
- 
yn 
‘= 
ow 
> 
c 
°o 
Vv 
@® 
a 
~ 
~ 
@ 
oe *. 
eo _~ 
vo @ 
—_ 
~ =) 
c ~ 
ea 
w - 
o —- w 
co ,-e Oo w 
w « 2 
~ ” & O 
c a oO 2 
e ow ‘ie 
- w Ww 
wv 
= w « 2 
aw ”» 3B 
tc aw O&O 
xO + twe ‘ 
a- tee Qr-em emt 
be 
-8s8 Seer eC 
>t 
vw@ 
A—] FOC OKUMTNO 
Qv Krom s sya 
Oooooo°ooo 


WTWNOr°-ODOor-ownm 


SISISSOOOS 


=< 
oa 
Pad 
a 
= 
> 
Ze 
a 


IBSCVTDXDX LIBSCVT_DX_DX any to any data type conversion $49 $ep-1984 00:43: AX-11 Bliss-32 V4.0-74 Page 14) 
ett The conversion routine, Upt lev at” b-805-1984 4 1 45:93 UOTBRTL SREIL TSCVTOX.03951 . (3). 
; 686 a ! ZSBITL ‘The conversion routine, UPI Level’ 
c= ; 8 1 GLOBAL ROUTINE LIBSCVT_DX_DX ( ! The UPI level of the conversion routine. 
> 658 750 1 SOURCE ' Source descriptor 
; 659 751 1 DESTINATION, i Destination descriptor. 

; 660 7 § 1 OUTLEN) ! An output optional parameter. 

; 661 07 1 = 

; 66 0754 BEGIN 

; 66 0755 
3; 664 0756 1+ 
3 23? per FUNCTIONAL DESCRIPTION: 
3 gee $reg : _— entry FIND_CVT_PATH is called to identify which conversion is to be 
; 668 0760 ' done, i.e. from which CLASS, DTYPE eas to which CLASS, DTYPE 
; 669 0761 : comp ination pe gonvecs ion is being d 

; 670 3706 ' Also, FIND_CVT_PATH will do all the work “of identifying the errors such 
: 671 076 : as unsupported class, dees type, or combinations. 
; 67 0764 : This routine is just a tree of CASE statements that the first 
: 67 0765 : level CASE statement labels have been identified by the FIND_CVT_PATH 
; 674 0766 2! routine. 
; 675 0767 § ! 
: 676 0768 ! 
s 677 0769 2 ! CALLING SEQUENCE: 

; 678 0770 § : 

; 679 0771 : ret_status.wlc.v = LIBSCVT_DX_DX ( SOURCE.rx.dx, DESTINATION. wx.dx 
; 680 o77¢ a! <OUTLEN.wwu.r> ) 

; 681 077 § ! 

: 682 0774 ' FORMAL PARAMETERS: 

; 683 0775 2! 

: 684 0776 2! SOURCE Address of source descriptor. 

; 685 0777 2! DESTINATION Address of destination descriptor. 
; 686 0778 2! OUTLEN Output length. Optional parameter for this ; 

; 687 0779 2! routine to put the length of actual data sutenout padding) in. 

; 688 0780 2! This is used only when destination is of dat 

; 689 0781 2! type T. 

; 690 bree § ! 

; 691 078 ! IMPLICIT INPUTS: 
; 69 0784 2! 
. 69 0785 2! NONE 
: 694 0786 ‘ 
; 695 0787 ! IMPLICIT OUTPUTS: | 
; 696 0788 : 
: 697 0789 ! NONE 

: 698 sf! } 

; 344 $44) COMPLETION STATUS: (or ROUTINE VALUE:) 

: 701 6798 : SS$_NORMAL Normal successful completion 

; 70 0794 ' LIBS_INVCVT Invalid conversion | 
3; 0795 : LIBS_INTOVF Inte af ytd | pal error 
: 704 B38 : LIBS_FLTOVF Floating overf 

: 705 079 : LIB$_DECOVF Packed. ecimal ‘gvertiley | 
: 706 0798 : LIBS_FLTUND Floating underflow 

; 707 799 : greys Reserved operand 

; 708 800 : LIB$_INVNBDS Inval d Numeric Byte Data String 

; 709 801 ! LIB$— INVCLADSC Invalid class in descriptor 

: 710 bB08 ! LIBS-INVDTYDSC Invalid data type in descri tor 

: 711 080 ; LIBS"INVCLADTY Invalid class data type combination in descriptor 


dD 10 


IBSCVTDXDX LIBSCVT_DX_DX any to any data type conversion 16-Sep-1984 00:43: AX-11 Bliss-32 V4.0-74 
The conversion routine. Upi level 6-Sep-19 4 90: f0;53 CIBRTL SREILTSCV IDR. 35;1 
; rr 04 : LIBS_DESSTROVF Output conversion error 
: fn? 8? } LIBS_OUTSTRTRU Output string truncated 
; 715 B09 ' SIDE EFFECTS 
; rig 8 88 : Every routine in this module turns on every arithmetic trap in PSwW. 

s fi 0 : Caller must have LIBSEMULATE as handler 

: at 0 \9 } f any G, or H conversions are asked for. 

: 720 6 \§ '+ 

: 1 pela LITERAL 

. £ : Bale 

: Se 0819 ge 

3 £g6 pais ‘Status returned by FIND_CVT_PATH. 

: 728 0820 K_UNSCLAROU = -1, ! Unsupported CLASS by routine. 

3 168 0821 K_UNSDTYROU = =¢° } Unsupported DATA TYPE by routine. 
; 730 pass K_UNSDESROU = -3, ! Unsupported descriptor by routine. 
s 731 082 K_UNSDESSTA = -4, ! Unsupported descriptor by standard. 
: 732 Oese 2 K_UNSCLASTA = -5, ! Unsupported CLASS by standard. 

: 739 0825 $ K_UNSDTYSTA =_-6, : ynoupeer tee DTYPE by standard 

3; 734 0826 K-INVNBDS = -7, i Invalid NBDS 

3; 735 0827 2 ! because either array size is larger 
; 736 0828 2 ! than a WU or it is not a one 

3 737 tH § ! dimensional array 

: res +t] Ste K_SUPPORTED = 1, ! This descriptor is supported, and valid. 
: me bess § ‘Literals used by all routines of this module. 

: 742 0834 2 K_INTMED_DATA_LENGTH = 32, ! Intermediate data buffer length 

: 743 0835 2 K-LRGST_Qu = 65535 ° 

3 67446 0836 2 K_LRGST_LU = 4294967295 ! Largest unsigned longword. 

; 745 0837 é " KILRGST-NEG_L = -2147485648, i Largest negative longword. 

5 ot rte § These are the values for the index to the main CASE statement. 

: 749 0841 2 K_SMLINT_SMLINT = 1, 

; 750 Bete 2 K_SMLINT_LRGINT = ¢° 

3; 751 084 2 K_SMLINT_SMLFLT = 35, 

: 03e 0844 2 KTSMLINT-LRGFLT = 4, 

3; 0845 K_SMLINT_DEC = 5 

> 754 0846 KTSMLINT-NBDS = 6, 

: 755 0847 K"LRGINT-SMLINT = 7, 

3; 756 0848 K_LRGINT_LRGINT = 8, 

: 757 0849 K_LRGINT_SMLFLT = 9 

; 758 0850 KTLRGINT-LRGFLT = 106, 

: 7 0851 K_LRGINT_DEC = 11 

: 760 085¢ KTLRGINT-NBDS = 12 

: 761 085 K"SMLFLT-SMLINT = 13, 

: 76 0854 KTSMLFLT“LRGINT = 14, 

; 76 0855 K_-SMLFLT_SMLFLT = 15, 

: 764 0856 K"SMLFLT“LRGFLT = 16, 

3 0857 K_SMLFLT_DEC = 17 

; 0 58 K"SMLFLT“NBDS = 18 

; 085 KTLRGFLT-SMLINT = 19, 

; 0860 KTLRGFLT“LRGINT = 20, 


L IBSEVTORDE 
-009 


ion 
so 


SN GNSS 
SSN NNN 
CONAULSWN Oo 


779 


oa 


BSCVT_DX_DX any ~ d 
e conversion rout me. PI lev 


CoCNCeCeCSCeCeGCD = 


C009 09 09 08 SIN NN NN NN NIP PAA A OOOnm 


SOONAUVE WN O OODNAUES WN OOONOUS Wr 


OOOOOCOOCOO -—r 


SOOO OCCOCOCOCOOCOOCOOCOOOoOoOO 


ata type conversion 16-Sep-1944 00: $3: 93 rut i 5 iScyté 0-74 


K_LRGFLT_SMLFLT = 31. 
“LRGFLT“LRGFLT = 22, 
KTLRGFLT“DEC = 2 
K-LRGFLT“NBDS = 24, 
KDEC_SMCINT = 25, 
K"DECLRGINT = 6. 
K"DEC"SMLFLT = 27, 
KIDEC"LRGFLT = 28, 
KIDEC“DEC = 29 
K"DEC“NBDS = 36, 
K"NBDS_SMLINT = 31, 
K"NBDS-LRGINT = ¢° 
K"NBDS"SMLFLT = 33, 
K"NBDS-LRGFLT = 34, 
K"NBDS-DEC = 35 
K"NBDS"NBDS = 36, 


14 
* Length of these records in bytes. 
K_SRC_INFO_LENGTH 


= 8 
K_DST_INFO_LENGTH = 8 
K-TEMP_BUF_LENGTH = 5 


'¢ 
Limits of numbers. 


IBCVTDX.B32;1 


2 
' 

79 88 
794 88 K_LRGST_NEG_B = -128 
795 88 KILRGST~ NEG W = -32768, 
796 88 K -LRGST_8 ="127 
797 88 KTLRGST“W = 32767, 
798 89 K =LRGST “Bu 255 
799 ‘ “LRGST“L = 2147483647 
800 K_PACK ‘tu. LEN = 10, 
801 0893 2 !+ ; . : 
802 0894 ! Define bit patterns for calling OTS conversion routines. 
803 0895 te 
804 0896 K_IGN_BLKS = 1, 
805 0897 K-ENB_ oUADERFL OW = 4, 
8 0898 K_IGN 16 
80 0899 K-ENB- “SCALE = 64, 
808 0900 '¢ ; 
tts 949 : Bit map to use to set all arithmetic traps 
811 90 K_SET_ARITHMETIC_TRAP = 32 + 64 + 128; 
sig 904 
81 90 ! 
814 090 ' BUILTIN 
815 090 ! 
31$ 0908 

17 0909 BUILTIN 
818 0910 CVTTP, 
819 911 CVTSP, 
820 at CVTLF, 

21 91 CVTLD, 

$§ 914 CVTPT, 

2 915 CVTPS, 

24 0916 CMPP, 
825 0917 CMPD, 


F 10 
IBSCVTDXDX LIBSCVT_DX_DX any to any data type conversion 16-Sep- 243: AX-11 Bliss-32 V4.0-74 Page 17 

41855 The conversion rout ne, Upi leve {P eg: =Sep- 1984 90:43:93 LIBRTL.SR ROIL IBCVTD 59551 . ; 

: 8 $ 91 CVTRDL, : 
: 3 9 CVTDF, : 
3 0 9 ¢ CVTLP, 5 
3 1 9 BICPSW, : 
3; 8 § 924 BISPSW 5 
; } 905 TESTBITSC, | ; 
: 9 § MOVP : 
; 835 9 ACTUALCOUNT | : 
: 8 6 : 8 ACTUALPARAMETER; | ; 
; 838 930 ‘+ 3 
; 839 0931 ' EXTERNAL REFERENCES: : 
; 840 09 é in | : 
>; 841 09 : 
3 Hk ate. EXTERNAL ROUTINE : 
: 84 0935 LIB oer 1. CVT sy ; 
; 844 0938 UI SSTOP = _NOVALUE ; 
; 845 093 OISsevl L Tle ; 
> 846 0938 OTSSCVT_T_D, ; 
; 847 0939 OTS$CVT-T7G, ; 
; 848 0940 OTSSCVT_T_H : 
> B49 0941 FORSCVT-D-TE, : 
; 850 094 2 FORSCVT_D_TF, | 3 
s 831 094 FORSCVT_H_TE, : 
; B26 0944 ORSCVT HIF, : 
: 85 0945 LIBSSCOPY-R_DXx6 : SCORYR JSB_R6, F 
3; 854 0946 LIBSSCOPY_DRDX6 : Y_JSB _R6, 3 
; 855 0947 MTHSCVT_D'G : NOVALUE, | 3 
; 856 0948 CVTLB :~JSB_R1 OVALE | ; 
; 857 094° § CVTLW : JSB_R1 NOVALUE, : 
; 858 0950 CVTLH : JSB_R1 NOVALUE < 3 
: 859 0951 2 CVTRHO : JSB_R1 NOVALUE, ; 
; 860 095 § vg : JSB_R1 NOVALUE, 3 
; 861 095 IVH2 : JSB_R1 NOVALUE, : 
s He 0954 2 CVTROUD : JSB_R1 NOVALUE, 3 
; 86 0955 § CVTROUH : JSB_R1 NOVALUE, 3 
: 864 0956 CVTRDQ@ : JSB_R1 NOVALUE, Ps 
; 865 0957 § VTDH : JSB_R1 NOVALU 3 
> 866 0958 CVTRHL : JSB_R1 NOVALUE, ; 
; 867 0959 CVTRHQ : JSB_R1 NOVALUE, b 
; 868 0960 CVTHF : JSB_R1 NOVALUE, ; 
; 869 961 CVTHD : JSB"R1 NOVALUE, : 
; 0 96 CVTHG : JSB_R1 NOVALUE, ; 
; «871 096 cvTen : JSB_RI 1 Pe - 
3 are 09 CMP JSB_RETRO_R1 3 
: 87 0965 CIBSScvT “SCALE ROO" Rub BY_10_R1 : SB KO NOVALUE, ; 
3; 874 096 LISSSCVT. SCALE_OU apoen _By_TO_R1 : JSB_RO NOVALUE, 3 
; 875 096 : JSB_R1~ NODAL 5 
; 876 0968 Di yD a JSB- RI NOVALUE: : 
s 877 3oP ASHP : JSB_ R6 NOVALUE; : 
; 878 970 3 
3 144 971 '¢ - ‘ 3 
3 +44 444 These are the translation tables used when translating from or to packed decimal. : 
: 882 0974 : 
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e conversion rout ne, tpl level” eer Ti 90:40:93 PIBRTL SRE MLIBCVTOR.035;1 
ehh (| 

LIBSAB_CVTTP_U, 

LIBSAB_CVT_0O_U, 

LIBSAB_CVTTP_O, 

LIBSAB_CVT_U_O, 

LIBSAB_CVTPT_u, 

LIBSAB_CVTPT_O, 

LIBSAB_CVTPT_7, 

LIBSAB_CVTTP_2; 


'¢ 


FIELD DECLARATIONS 


FIELD 
SRC_INFO_FIELDS = 

SET 
S_SCALE = CO, 0, 8,_1), 
S"POINTER = (1,°0, 32, 0), 
S"LEN = (5, 0, 16, 0). 
S“SIGN = (7, 6, 1. 03 
TES; 

FIELD 


L 
DST_INFO_FIELDS = 


D_SCALE = CO, 0, 8, 1], 
DPLEN = (5, 6, 16,°0) 


LOCAL 

Source information. LIBSSFIND_CVT_PATH puts source information in this structure. 
- SRC_INFO : BLOCK CK_SRC_INFO_LENGTH, BYTE) FIELD (SRC_INFO_FIELDS), 
;Destination information. LIBSSFIND_CVT_PATH puts destination information in this structure. 
DST_INFO : BLOCK CK_DST_INFO_LENGTH, BYTE) FIELD (DST_INFO_FIELDS), 

i Intermediate data. LIBSSFIND_CVT_PATH puts the intermediate data in this buffer. 
1 INTMED_DATA : BLOCK CK_INTMED_DATA_LENGTH, BYTE], 

; Temporary buffer 1. Used by LIBSCVT_DX_DX to keep temporary data. 

TEMP_BUF1 : BLOCK CK_TEMP_BUF_LENGTH, BYTE), 

‘Temporary buffer 2. Used by LIBSCVT_DX_DX to keep temporary data. 

i TEMP_BUF2 : BLOCK CK_TEMP_BUF_LENGTH, BYTE), 

;Class S descriptor. A class S descriptor for any use. 

- CLASS_S_DESC : BLOCK (8, BYTE], 

'Final length. Length of actual data in TEMP_BUF2. 
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51805 he converSion routines UPl Level” oreepa lobe $8:torss Ee Terte snesitacvtox.0$5:1 ey 
; 940 g le | 
941 ae FINAL_LEN, | 
ot 5 ‘Convert path. The convert path calculated by LIBSSFIND_CVT_PATH. 
945 , §' CVT_PATH, | 
94 8 '¢ 
oh 873 ;Number of digits. Number of digits of a decimal number. 
949 041 NO_DIGITS, 
950 beg 14 
Bes et ‘Digits in fraction. Used for calling OTSSCVT_x_TE. 
988 045 2 DIGITS_IN_FRACT, 
954 046 '¢ 
955 047 'Various status returned by routines. | 
956 048 !- 
957 049 STATUS, | 
958 050 1 
959 051 ‘Largest LU in a packed decimal. 
960 O36 te 
961 05 LRGST_P_LU, 
96 054 '¢ 
96 055 ‘Largest LU in a double floating. 
964 056 le 
965 057 LRGST_D_LU, 
966 058 ‘ 
O28 1A zero in a packed decimal. 
061 PACK_ZERO, 
b8¢ '¢ 
06 argest LU in a H floating. 
| 
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967 ; 

968 

969 

970 

971 

972 064 t= 

973 065 LRGST_H_LU, 

974 066 ‘+ 

3°? st ‘This is an offset to the actual data in TEMP_BUF{1 | 2}. 

977 069 BUF _OFFSET, 

978 070 '¢ 

14 ta :For simplicity purposes we will set this to be the address of destination data 

+f 078 OUTPUT, 

98 O22 ‘Output erring length. The optional parameter to indicate length of actual 

Bee 678 rstring that has been written to destination. 

986 078 OUTPUT_STR_LEN, 

987 079 '¢ ; : 

oes bay ‘The effective scale. source scale minus destination scale. 
“ 

990 SCALE; 

331 083 | 

99 Bae MAP 

39 085 OUTPUT : REF BLOCK f- BYTE). 

994 086 SOURCE : REF BLOCK BYTE 

995 087 DESTINATION : REF BLOCK C, BYTE); 
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; 997 1089 '¢ H 
; 998 44 ! Establish CVT_HANDLER as handler. ‘ 
; .999 1091 le ; 
; 1000 1936 3 
: 1001 109 ENABLE ; 
; 100 1094 CVT_HANDLER; 3 
; 100 1095 : 
; 1004 1998 + 3 
: 1005 109 ! OUTPUT is used through out the main case statement to indicate the destination ; 
: 1006 1098 ! of the converted data. : 
: 1007 1099 te ; 
¢ 1008 1100 , OUTPUT = .DESTINATION CDSCSA_POINTER]; | ; 
; 9 1106 Zero out these records for LIBSSFIND_CVT_PATH. 
° : | ° 
3 IOs 1104 CHSFILL (0, K_SRC_INFO_LENGTH, SRC_INFO); : 
> 101 1105 HSFILL (0. KTDST-INFO-LENGTH, DST~INFO): | ; 
: 1014 1106 CHSFILL (0, K-INTMED_DATA_LENGTH, INTMED. DATA); | ; 
: 1015 1107 CHSFILL (3C* °, K_TEMP_BUF_LENGTH, TEMP_BUF1); | : 
; 1016 1108 HSFILL (ZC° *, K_TEMP_BUF_LENGTH, TEMP_BUF2); | 
; 1017 1109 $ QUTPUT_STR_LEN = 0; 
; 1018 1110 ‘ 
3 1019 1111 ' This descriptor is always class S, dtype ': ; ; | 
: 1020 1136 ! It is used on various occasions to call routines that require descriptors for | 
; 106) 7 ! their parameters. 
: 1958 1115 : CLASS_S_DESC CDSC$B_DTYPE] = DSC$K_DTYPE_T; 
; Se 1118 § . CLASS_S_DESC CDSC$B_CLASSJ = DSCSK_CLASS_S; 
5 1026 1118 2 ! Initialize some constants 
3 1027 1119 ad 
3 1028 1199 LRGST_P_LU = UPLIT (2P'+4294967295'); | 
: 1029 1121 LRGST_D_LU = UPLIT (2D'+4 34 887s82.3: 
; 1030 1166 LRGST_H_LU = UPLIT (2H'+4294967295'); 
; Oe) i$? § PACK_ZERO = UPLIT (%P'+0'); | 
: 1033 1125 2 | SRC_INFO structure will contain the information about the source data, but in | 
3: 1034 1126 ' most cases it points to the INTMED_DATA buffer because the source data is 
; 1035 1127 ! usually converted to an intermidiate date, so before calling LIBSSFIND_CVT_PATH we 
; 1936 i 3 will set up the pointer and length fields of SRC_INFO to be INTMED_DATA. 
: 1038 1130 2 °  SRC_INFO CS_POINTER] = INTMED_DATA; | 
; 1059 1 1 SRC-INFO CS"LEN) = K_INTMED_DATA_LENGTH; | 
3 1041 1138 i This MACRO is used to test out the LIBSSFIND_CVT_PATH routine, so in a working 
: 10¢ 1136 { module this macro is commented out. | 
; 1044 1136 ¢ i, M_TEST_LIBSSFIND_CVT_PATH | 
: 1046 1138 2 ! Lets call LIBSSFIND_CVT_PATH to get SRC_INFO, and DST_INFO all filled out with information | 
: 1047 1139 ! about SOURCE and DESTINATION. 7 
3 Ht bs The output parameter CVT_PATH will contain the conversion path when we return. 
; 1920 1726 STATUS = LIBSSFIND_CVT_PATH (.SOURCE, .DESTINATION, SRC_INFO, DST_INFO, CVT_PATH); 
; 1936 1144 i If we got an error returned to_us by LIBSSFIND_CVT PATH, it means that one of the | 
; 105 1145 ! descriptors SOURCE, or DESTINATION was invalid to Ehis routine. 
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s. They are Listed in the completion status 
- Although we get a variety of errors; from -1 to -7 
errors. 


SCVT_DX_DX any > ony fete t 
ne, eve 


! ALL errors are negative value 
' section of LIBSSFIND_CVT_PATH 
! we will do some overTaping of 


IF .STATUS LSS 0 
THEN 
BEGIN 
so FROM K_INVNBDS TO K_UNSCLAROU OF 


CK_UNSDTYSTA, K_UNSDTYROU) : 
RETURN (LIBS_INVDTYDSC); 


CK_UNSCLASTA, K_UNSCLAROU] : 
ReTURN (LIBS_INVCLADSC); 


CK_UNSDESSTA, K_UNSDESROU] : 
RETURN (LIBS_INVCLADTY); 


CK_INVNBDS) : 
RETURN (LIBS$_INVNBDS); 


'¢ 
! Enable all arithmetic traps, and figure out the scale fator to be used by 
the main CASE statement below. 


BISPSW (ZREF (K_SET_ARITHMETIC_TRAP)); 
SCALE = .SRC_INFO CS_SCALE] = [DST_INFO CD_SCALE); 


3 
3 
3 
3 
3 
3 
END; 
2 
; 
e 
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089 '¢ 
44 ! Now that we have SRC_INFO, and DST_INFO structures, and CVT_PATH available, 

91 ! and source data has Been converted to an intermediate data, we will 

O36 : go from intermediate data that LIBSSFIND_CVT_PATH provided to 

O37 a scale intermediate data type, to the actual data type that our caller desired. 
099 i The following explains the objective of the conversions : 
097 The objective is to convert from intermediate data type provided by E 
098 LIBSSFIND_CVT_PATH routine to the data type that the user has requested in 
099 the destination descriptor. 


The intermediate data is in INTMED_DATA, except for when source is 

of data type T. LIBSSFIND_CVT_PATA did not convert or transferred the T 
data cypee so the intermediate data for this data type is described 

by the SOURCE descriptor itself. 


' 

i 

i 

i 

i 

i 

i 

i 

i 

' 

' The first step is to scale che intermediate data. This scale is 
: calculated as : SCALE = (source scale) = (destination scale). 
: Scaling cannot — be done on the intermediate data, because 
: it may under/over flow it, so scaling is done on either the intermediate 
! or the higest data type of the category that the destination data type 
: falls in. The data type with greater cones is always selected. 

; Caution is taken not to select a scaling intermediate 

; data type that requires G, H, or O instructions, unless source or 

; destination is of these types. 

! At the beginning of each sub_case statement a macro is placed to go 
: from intermediate data type fo scaling intermediate data type. 

: Regardless of whether there is scaling involved or not the intermediate 
data type is conver ted tg scal ing intermediate data iypes 

The scaled intermediate data will again end up in INTMED_DATA buffer. 

4 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

he 


Macros that do this scaling are called M_SCALE_x x which means convert | 
x to y and the result value in H is scaléd according to the scale specified 
in source and destination descript 
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ors. 

The next steno is to convert the scaled intermediate data to destination 
data type and move it to the destination as specified by descriptor. 
This is done as close to a ‘interrupt proof’ manner as possible. 

Since only NBDS can be of semantics other than fixed, only in case of 
NBDS (or just text) destination is copied to via LIB$SCOP fs 


PSW is masked such that IV, FU, DV bits are set. 


CASE .CVT_PATH FROM K_SMLINT_SMLINT TO K_NBDS_NBDS OF 
'<BLF /PAGE> 
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| 
} 
CK_SMLINT_SMLINT] : 
M_SCALE_L_L; ' | 
CASE. - DESTINATION CDSCSB_DTYPE] FROM DSCS$K_DTYPE_BU TO DSCS$K_DTYPE_L OF | 


CDSC$K_DTYPE_BU] : 
BEGIN 


IF .INTMED_DATA CS_LONG_1] LSS 0 THEN RETURN (LIB$_INVCVT); 
IF (OUTPUT CBYTE_1] = .INTMED_DATA CLONG_1]) GTRU K_LRGST_BU THEN RETURN (LIB$_INTOVF); 
END; 
CDSCS$K_DTYPE_wu] : 
BEGIN 


OWONOULS WN —ODOONOULSWN—"O°0 


IF .INTMED_DATA CLONG_1] LSS 0 THEN RETURN (LIB$_INVCVT); 
IF (OUTPUT CWORD_1] = .INTMED_DATA CS_LONG_1]) GTRU K_LRGST_WU THEN RETURN (LIB$_INTOVF) 
END; 


COSCS$K_DTYPE B] : 
CVTLB CINTMED_DATA, .OUTPUT); 


CDSCSK_DTYPE W) : 
CVTLW CINTMED_DATA, .OUTPUT); 


CDSCSK DTYPE L] : 
OUTPUT CCONG_1] = .INTMED_DATA [S_LONG_1); 


VV ES BS ES EB BE EAA 


CINRANGE, OUTRANGE) : | 
RETURN (LIB$_FATERRLIB); 
TES; 'For SMLINT_SMLINT 
| 

| 

| 
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181 7 
186 7 CK_SMLINT_LRGINT, K_LRGINT_LRGINT] : 
ie? BEGIN 
185 ? SELECTONE .CVT_PATH OF | 
186 7 SET 
184 5 CK_SMLINT_LRGINT] 
18 TRhe cou: 
192 : meee 
138 8 CK_LRGINT_LRGINT] : 
194 8 
195 8 M_SCALE_OU_OU; 
196 8 ERD; 
197 8 TES; 
198 8 
199 8 SELECTONE .DESTINATION COSCSB_DTYPE] OF 
200 8 SET 
201 .) 
$06 9 CDSC$K_DTYPE_LU) : 
it, . BEGIN 
4 > IF .SRC_INFO CS_SIGN] THEN RETURN (LIBS$_INVCVT); 
9 
g 
9 
9 
0 
0 
0 
0 
p 
0 
0 
0 


Fg MINED pare CLONG_1] EQLU 2X"FFFFFFFF’ 


4 IF RED STO CLONG_2] OR .INTMED_DATA CLONG_3] OR .INTMED_DATA CLONG_4]) NEQ 0 
4 RETURN (LIBS_INTOVF); 
11 OUTPUT CLONG_1] = .INTMED_DATA CLONG_1); 
\¢ END; 
14 CDSC$K_DTYPE_Q]) : 
1? BEGIN 
4 IF (.INTMED_DATA CLONG_3] OR .INTMED_DATA CLONG_4] OR .INTMED_DATA (4, 31, 1, 03) NEQ 0 
9 RETURN (LIBS$_INTOVF); 
21 IF .SRC_INFO CS_SIGNI 
22 THEN 
23 BEGIN 
24 INTMED_DATA LONG 1} = .INTMED_DATA CLONG_1) XOR 2X°FFFFFFFF'; 
é INTMED-DATA CLONG_2] = .INTMEDDATA CLONG_2) XOR 2X'FFFFFFFF’; 
8 
9 
0 
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BEGIN 
INTMED_DATA CLONG_1) = 0; 
: INTMED-DATA CLONG-2) = .INTMED_DATA CLONG_2) + 1; 
LSE 
4 INTMED_DATA CLONG_1] = .INTMED_DATA CLONG_1) + 1; 
6 END; 
237 
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OUTPUT LONG} = .INTMED_DATA FL LONG -}}i 
eNbee LONG=2] = .INTMED-DATA L[LONG_2 


COTHERWISE] : 
TES: RETURN (LIBS _FATERRLIB); 


!For SMLINT_LRGINT, LRGINI_LRGINT. 
| 
} 
| 
| 
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CkK_SMLINT SMLFLT, K_LRGINT_SMLFLT, K_SMLFLT_SMLFLT, K_DEC_SMLFLT, K_NBDS_SMLFLT] : 
SELECTONE .CVT_PATH OF 
SET 


CK_SMLINT SMLFLTI 
M SCALE_L_D; 
END; 


CK_LRGINT_SMLFLT] : 
GIN 


M_SCALE_OU_D; 
END; 


CK_SMLFLT_SMLFLT] : 


M SCALE_D_D; 
END; 


CK_DEC SMLFLT] : 
M_SCALE_P_D; 
END; 


CK_NBDS_SMLFLT] : 
BEGIN 


me me me me ek a ed ed ed ed a ed od wd 8 8 ot 8 2 —T 
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3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

3 

36 

3 

36 

s 

36 CLASS_S_DESC COSC$W_LENGTH] = .SRC_INFO [S_LENJ; 

36 CLASS"S_DESC CDSCSA_POINTER] = .SRU_INFO CS_POINTER]; 
36 ATUS = OTSSCVT_T_B (CLASS_S_DESC, INTMED BATA, 0, -.SCALE, 
38 (K_IGN_BLKS OR™K_ENB_UNDERFLOW OR K_IGN_TABS OR K_ENB_SCALE)); 
Hi IF NOT .STATUS THEN RETURN (LIB$_INVNBDS); 

37 END; 

Hi TES; 

Hi CASE DESTINATION CDOSCS$B_DTYPE] FROM DSCSK_DTYPE_F TO DSCSK_DTYPE_D OF 
37 

30 CDOSCSK_DTYPE_FJ : 

381 CVTDF (INTMED_DATA, .OUTPUT); 

4H IF .SRC_INFO CS_SIGN] THEN OUTPUT (CO, 15, 1, 0] = 1; 
385 END; 

386 

he COSCSK_DTYPE_D] : 

389 OUTPUT CLONG_1] = .INTMED_DATA C[LONG_1]); 

331 OUTPUT CLONG_2] = .INTMED_DATA CLONG_2); 

335 IF .SRC_INFO CS_SIGN] THEN OUTPUT CO, 15, 1, 0] = 1; 
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3 3 } 9 END; 

: 1 08 1 %6 CINRANGE OUTRANGE] : 

: 1 139 TURN (LIBS, rEATERRLIB) ; 

: 1 10 38 Tes; TFor SMLINT_SMLFLT, LRGINT_SMLFLT, SMLFLT_SMLFLT, DEC_SMLFLT, NBDS_SMLFLT. 
:4 i 1400 END; 

: 131 1401 ' <BLF /PAGE> 
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ett The conversion poutine. UPt love aes 90:43:93 LIBRTL.SRCILIBCVTDX.B3 31 . BS ( 
; 1315 140 | 2 | 
: 1316 1498 CK_SMLINT_LRGFLT, K_LRGINT_LRGFLT, K_SMLFLT_LRGFLT, K_LRGFLT_LRGFLT, K_DEC_LRGFLT] : | : | 
; 131 1404 BEGIN | 3 | 
3 1318 1405 4 
; 1319 1208 SELECTONE .CVT_PATH OF .4 
; 1320 14 SET | : | 
> 1321 1408 | 3 | 
71 : 1409 CK_SMLINT_LRGFLT] : : | 
3:1 1410 4 | 3 | 
: 1324 1411 4 M_SCALE_L_H; | 5 | 
: 1325 1418 END; 21 
: 1326 141 : | 
:4 1414 CK_LRGINT_LRGFLT) : 3 
; 1528 1415 4 BEGIN 24 
; 1329 1416 4 M_SCALE_OU_H; 2 
; 1330 1417 END; : 
; 1331 1418 : | 
: 1 3¢ 1419 CK_SMLFLT_LRGFLT) : i) 
: 133 1420 4 . | 
> 1334 1421 4 M_SCALE_D_H; $ | 
; 1335 14 ; 3 END; e 
; 1336 142 ; s] 
3 1337 1496 CK_LRGFLT_LRGFLT) : 3 | 
: 1338 1425 & BEGIN | 
: 1339 1426 4 M_SCALE_H_H; : 
; 1340 1427 END; 31 
> 1341 1428 : | 
; 1306 1962 CK_DEC_LRGFLTJ : e | 
: 134 1430 4 e 
3 1344 1431 4 M_SCALE_P_H; . | 
3 1345 1636 3 END; | 
3 1346 143 TES; : 
: 1347 1434 e 
3; 1348 1435 CASE .DESTINATION CDSCS$B_DTYPE] FROM DSCSK_DTYPE_G TO DSCSK_DTYPE_H OF 2] 
; 1363 1436 ; SET . | 
; 1350 1437 ’ 
3 1351 1438 3 CDSC$K_DTYPE_G) : : 
5 1326 1439 4 N : 
; 135 1440 4 CVTHG CINTMED_DATA, .OUTPUT); ° 
> 1354 1441 4 : 
; 1355 1449 4 IF .SRC_INFO CS_SIGN] THEN OUTPUT CO, 15, 1, 0] = 1; : 
: 1356 1443 4 ‘ 
; 1357 1444 3 END; : 
: 1328 1445 ; : 
3; 1359 1446 CDSCSK_DTYPE_H) : : 
3; 1360 1447 & N ‘ 
3; 1361 1448 4 CHSMOVE (16, INTMED_DATA, .OUTPUT); ‘ 
; 1366 1449 4 : 
; 1364 1450 ‘ IF .SRC_INFO CS_SIGN] THEN OUTPUT (0, 15, 1, 0] = 1; : 
; 1365 1426 END; 
; 1366 145 
: 1368 1435 SNR TURN (Libs FATERRLIB) | 
; 139? 1428 TES; TFor SMLINT_LRGFLT, LRGINT_LRGFLT, SMLFLT_LRGFLT, LRGFLT_LRGFLT, DEC_LRGFLT. 
; 1371 1458 END; 
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SCVT_DX_DX any to ~ data t 
conversion routine, UPI Leve 


IF .SRC_INFO CS_SIGN] THEN RETURN (LIB$_INVCVT); 


| 

CDSCS$K_DTYPE_NU] : | 
BEGIN 
CVIPT (NO_DIGITS, INTMED_DATA, LIBSAB_CVTPT_U, DESTINATION CDSCSW_LENGTH], OUTPUT); = 


74 46 : 

75 46 CK_SMLINT_DEC, K_DEC_DEC] : : 

6 46 BEGIN : 

7 46 : 

78 46 SELECTONE .CVT_PATH OF ; 

79 46 SET : 

80 6 : 

81 £ CK_SMLINT_DEC) : ; 

B¢ 6 GIN : 

8 6 M SCALE_L_P; | : 

84 7 END; 3 

Be ; CK_DEC_DECI | 

388 , i 4 SCA E_P_P | 
L ; ‘ 

389 7 ee | 3 
$e f TES; : 
4 . sen”. viehenten COSC$B_DTYPE] FROM DSCS$K_DTYPE_NU TO DSCS$K_DTYPE_P OF ‘ 
94 8 : 

95 8 : 

8 ‘ 

8 r 

8 : 

g : 

8 : 

8 : 


CDSC$K_DTYPE_NL 
CVTPS (NO_D 
REF T 
IF DESTINATION CDSC$W_LENGTH] EQL 0 THEN 0 ELSE .DESTINATION CDSC$W_LENGTH] - 1) 
, .OUTPUT); 
CDSC$K_DTYPE_NLO] : 
BEGIN 
CVTPT (NO_DIGITS 


ARANVLSSSLS 


J: 
IGITS, INTMED_DATA, 


ssss 


OOOO VEWN —OODNOUSWN-O0OOn 


DATA, LIBSAB_CVTPT_U, DESTINATION W LENGTH], TEMP_BUF1); | 
RC_INF (. YTE_1] + 


t INTMED 4 M Cposcs A 
TEMP_BUFI (BYTE 1) = (IF™. O CS~SIGN] THEN .(.TEMP_BUF1 CBYTE_ CIBSAB~CVT_U.O | 
8 + 10) ELSE GaTERe BUFT CBYTE_T) + LIBSAB_CVT_U 0 = 48)); 
CHSMOVE (.DESTINATION COSC$W_LENGTH), TEMP_BUF1,~.OUTPOT); 


COSCSK_DTYPE_NR] : 
BEGIN 
LOCAL 
DES_LEN, 


DES_LEN = 
BEGIN 


IF .DESTINATION COSC$W_LENGTH] EQL 0 THEN 0 ELSE .DESTINATION CDSCS$W_LENGTH) - 1 
END; 
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1 
4 CVTPS (N TS INTMED DATA. ES gt tN. EMP 8 aye}: 
I DATA + .DES_L an YTE 
“LEN, vith eal InThep bara): 
“LEN INTHED. DATA, .OUTPUT); 


| iBSCVTDKDX 


3 7 
33 
3} 
3% 
3% 
B 
3; 7 
3 7 
3; } 
3; 7 
3; 3 
3% 
3 7 
3; 7 
3} 
sy 
3 3 
3 3 
2 
5 
3; 3 
3 7 
3; 1 


re 


.TEMP_BUF1 (BYTE_1); 


Cost sx wer tho 
fYPE) EQ) DS ace DTYPE_NRO THEN L1BSAB_ CVTPT_O ELSE 
STINATION CDSC$W_CENGTH], .OUTPUT); 


= 


WN O OONAULSWN—OVOW 


INTMED_DATA, DESTINATION peace LENGTH], TEMP_BUF1) 
TON Coscs@ _LENGTH), TEMP_BUF DESTINATION CDSCS$O SUENGTH), -OUTPUT); 


Wr" OCONOUS (NOOO 


CINRANGE, OUTRANGE) : 
RETURN (LIB$_FATERRLIB); 
ES; 'For SMLINT_DEC, DEC_DEC 
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4-009 The conversion rout ne, UPI level” b-Sep-19 4 90 Tbig3 EMBRTL SRe LIBCVTDX.B32;1 ’ 185 
: 1455 1540 
: 14 : 1541 CK_LRGINT_SMLINT) : 
: 14 1 4¢ BEGIN 
: 1438 43 M_SCALE_OU_OU; 
: 1460 1349 IF (-INTMED_DATA CLONG_2] OR .INTMED_DATA CLONG_3] OR .INTMED_DATA [LONG_4]) NEQ 0 
; 146¢ 1347 RETURN (LIB$_INTOVF); 
> 1464 1549 CASE .DESTINATION CDSC$B_DTYPE] FROM DSCSK_DTYPE_BU TO DSCS$K_DTYPE_L OF 
> 1465 1550 SET 
; 1466 1331 
: 146 1 3 CDSCS$K_DTYPE_BU) : 
> 1468 i553 4% BEGIN 
> 1469 1554 4 
; yey 132? 2 IF .SRC_INFO CS_SIGN] THEN RETURN (LIBS$_INVCVT); 
; Hie 1230 : IF .INTMED_DATA CBYTE_2] OR .INTMED_DATA CWORD_2] NEQ 0 THEN RETURN (LIBS_INTOVF); 
: 1474 1559 4 OUTPUT CBYTE_1] = .INTMED_DATA CLONG_1); 
> 1475 1560 3 END; 
: 1476 1561 3 
: 1477 136¢ CDSC$K_DTYPE_wu] : 
: 1478 1563 4 BEGIN 
: 1479 1564 4 
; 1480 1365 4 IF .SRC_INFO CS_SIGN] THEN RETURN (LIBS$_INVCVT); 
: 148@ 1367 4 IF .INTMED_DATA CWORD_2] NEQ 0 THEN RETURN (LIB$_INTOVF); 
: 1484 1569 4 OUTPUT CWORD_1] = .INTMED_DATA CLONG_1]; 
> 1485 1570 ; END; 
: 1486 1571 
: 1487 137@ 3 CDSCS$K_DTYPE_B) : 
+ 1488 1573 4 BEGIN 
: 1489 1574 4 
: 1490 1375 4 IF .INTMED_DATA CS_LONG_1] LSS 0 THEN RETURN (LIBS_INTOVF); 
; 149¢ 1377 4 IF .SRC_INFO CS_SIGN] THEN INTMED_DATA CLONG_1] = -.INTMED_DATA CS_LONG_1): 
: 1494 1579 4 CVTLB (INTMED_DATA, .OUTPUT); 
> 1495 1580 3 END; 
: 1496 1581 3 
: 1497 138¢ CDSC$K_DTYPE_W) : 
+ 1498 1583 4 BEGIN 
3 1499 1584 4 
: 1309 1989 4 IF .INTMED_DATA CS_LONG_1] LSS 0 THEN RETURN (LIB$_INTOVF); 
; 1 1287 ? IF .SRC_INFO CS_SIGN] THEN INTMED_DATA CLONG_1) = -.INTMED_DATA CS_LONG_1); 
: 1504 1589 4 CVTLW CINTMED_DATA, .OUTPUT); 
: 1505 1590 END; 
: 1306 1591 
: 150 139¢ CDSC$K_DTYPE_L) : 
: 1508 1593 4 BEGIN 
; 1509 1594 4 
: 1510 1595 4 IF .INTMED_DATA CS_LONG_1] EQL K_LRGST_NEG_L AND .SRC_INFO CS_SIGN) EQL 1 
; 1511 1596 4 THEN 


Be Be Se Se BOs BH Oe SH Se Se Se Ge SHS Se Ge Se Se Fe Ge Ge Se Se Ge FH Se Ge Ge Se Se Ge Se Se Se Se Fe Se ae Se Se Sess Se Se Se Se Se Seas Se Geese See teas 


Ss SS Ls SY YY 
DVPV PVD IVIVSIVSPUSUSTSU SSIS Ss 
WRPOPoPoPoNonononnsnd 2 2 2 eS C—O 
SOO ONAMESWN S$ OODONOUE wr 

— us a a a 2s as 9 Ls —) os — 9 —) 9 2 —_r 
PAAPAOASSSASAASSAOSOOOUM We 
2 tI IOOOOOCOOOCOOOCOOWOOO #8W 
VSWR —OCONAOULS WN O0OoO~n 

RII AAA NAME BB MNNINII 


SCVT_DX_DX any to an 
conversion routine, 


bri 


ata t 
leve 


ype conversion 1h-5¢ g-300° 138% 00:43:03 AX-11 Bliss-32 V4.0 


6-Sep-19 LIBRTL.SRCILIBCVTDX. 783 37 


5 OUTPUT CLONG_1] = .INTMED_DATA CS_LONG_1] 
BEGIN 


IF 
IF 


.INTMED_DATA CS_LONG_1] LSS 0 THEN RETURN (LIBS_INTCVF); 
~SRC_INFO CS_SIGN] THEN INTMED_DATA CLONG_1] = -.INTMED_DATA CS_LONG_1); 


OUTPUT CLONG_1] = .INTMED_DATA [S_LONG_1]; 


END; 
C INRANGE 
TES; 


OUTRAN 


NGE] : 
RETURN (LIB$_FATERRLIB); 


!'For LRGINT_SMLINT 
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(11) 


CKLRGINT DEC, K_SMLFLT_DEC, K LRGFLT_DEC, K.NBDS_DECI : 
CLASS_S_DESC EDSCSW_LENGTH] = K TEMP, BUF LENGTH; 
CLASS-S-DESC CDSCSA-POINTER] = TEMP_BUF 23 


WISI 
Wr 


uw 


SELECTONE .CVT_PATH OF 
SET 


CRLRGINT DEC : 
CVTROUH CINTMED_DATA, TEMP_BUF1); 
IF .SRC_INFO CS_SIGN] THEN TEMP_BUF1<15, 1, 0> = 1; 
he = FORSCVT_H_TF (TEMP_BUF1, CLASS_S_DESC, 0, .SCALE, 0, 0, 1); 


ooo 


CK_SMLFLT_DEC] : 
BEGIN 


IF .INTMED_DATA<15, 1, 0> THEN SRC_INFO CS_SIGN] = 1; 
STATUS = FORSCVT_D_TF CINTMED_DATA, CLASS_S_DESC, 0, .SCALE, 0, 0, 1); 
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CK_LRGFLT_DEC) : 
BEGIN 


AAO 


STATUS = FORSCVT_H_TF CINTMED_DATA, CLASS_S_DESC, 0, SCALE, 0. 0, 1); 


CK_NBDS_DEC] : 
BEGIN 


GT 
CLASS_S_DESC COSC$W_LENGTH] = .SRC_INFO CS_LENJ; 
CLASS"S"DESC COSCSA POINTER] = .SRT_INFO C5 POINTER); 
STATUS = OTSSCVT_T_A (CLASS_S_DESC, TEMP_BUF1, 0, -.SCALE, 
(K_IGN_BLKS OR™K_ENB_UNDERFLOW OR K_IGN_TABS OR K_ENB_SCALE)); 


IF NOT .STATUS THEN RETURN (LIBS_INVNBDS); 
IF .TEMP_BUF1<15, 1, 0> THEN SRC_INFO CS_SIGN) = 1; 
CLASS_S_DESC ppseey LENGTH) = K_TEMP_BUF_LENGTH; 


Ss 
CLASS"S-DESC COSCSA-POINTER] = TEMP _BuF2 
plates = FORSCVT_H_TF (TEMP_BUF1, CCASS_§ DESC, 0, 0, 0, 0, 1); 
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TES; 
IF NOT .STATUS THEN RETURN (LIBS_DECOVF); 


BUF_OFFSET = CHSFIND_NOT_CH (K_TEMP_BUF_LENGTH 
NO_BIGITS = K_TEMP_BOF_LENGTH = .BUF_OFFSET - 2 


IF .NO_DIGITS GTR 31 THEN RETURN (LIBS$_ROPRAND) ; 


TEMP_BUF2, %C* *) = TEMP_BUF2; 
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IF .INTMED_DATA<15, 1, 0> THEN SRC_INFO CS_SIGN] = 1; 
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CASE . - DESTINATION CDSC$B_DTYPE] FROM DSCSK_DTYPE_NU TO DSCS$K_DTYPE_P OF 
COSCSK_DTYPE_NU) : 
BEGIN 


IF .SRC_LINFO CS_SIGN] THEN RETURN (LIBS_INVCVT); 
IF .NO_DIGITS GTR .DESTINATION CDSCSW_LENGTH] THEN RETURN (LIB$_DECOVF); 


CHSFILL (%X'30", .DESTINATION CDSCS$W_LENGTH] - .NO_DIGITS, TEMP_BUF1); 
CHSMOVE (.NO_DIGITS, TEMP BUF? + BUF OFFSET + 1 

P_BUFT + .DESTINATION COSC$W_LENGTH) - .NO_DIGITS); 
CHSMOVE T.DESTINATION CDSC$W_LENGTH], TEMP_BUFi, .OUTPUT): 


FPOAPPAASASSOSASSOSAS re 


COSCSK_DTYPE_NL) : 
BEGIN 
LOCAL 
DES_LEN; 


DES LEN = 
BEGIN 


EGT 


END; 
IF .DES_LEN LSS .NO_DIGITS THEN RETURN (LIGS$_DECOVF); 
CVTSP (NO _OIGITS, TEMP BUF2 + .BUF_OFFSET, DES_LEN, TEMP_BUF1); 
sor (DES_LEN, TEMP_BOF1, DES_LEN, .OUTPUT); 
CDSCS$K DTYPE_NLOJ : 
CHSFILL (%X"30", .BUF_OFFSET + 1, TEMP_BUF2); 
IF .NO_DIGITS GTR .DESTINATION CDSCS$W_LENGTH] THEN RETURN (LIBS_DECOVF); 
BUF OFFSET = K_TEMP_BUF_LENGTH - .DESTINATION CDSC$W_LENGTH) - 1 
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BLOCK CTEMP BuF2 + TBUFTOFFSET, 0. 0 :, BYTE) ="(IF .SRC_ 

CTEMP BOFe + .BUF_OFFSET. 6, 6, 8 6;. BYTE] + LIBSAB_CVT-U 

-BLOCR CTEMP_BUF2~+ .BUF_OFFSET, 6, 6: 8, 03. BYTE] +"LIBSAB CVT _U_O = 48)) 
CHSMOVE (,DESTINATION COSCSW"LENGTHS, TEMP_BUF2 + .BUF_OFFSET, .OUTPOT!; 


CDOSCSK_DTYPE_NR] : 
BEGIN 
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IF .DESTINATION COSC$W_LENGTH] EQL 0 THEN O ELSE .DESTINATION CDSCS$W_LENGTH] - 1 
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IF .DESTINATION COSC$W_LENGTH) EQL 0 THEN 0 ELSE .DESTINATION CDSCS$W_LENGTH] = 1 


END; 
IF .NO_DIGITS GTR .DES_LEN THEN RETURN (LIB$_DECOVF); 
CHSFILL Cx" 30', .DES_LEN = .NO_DIGITS + TEMP ~8Y F1) 
CHSMOVE (.NO_DIGITS, TEWP. Burg t 0 BUF OF ofr ser vEMP® ‘BUFI + .DES_LEN - 
BLOCK CTEMP_BUF1 + DES. 


0,8, 07. BYTE): 
CHSMOVE (.DES_LEN +°1, sted OUTPUT); 


CDOSCS$K_DTYPE_NRO, DSCSK_DTYPE_NZ) : 
BEGIN 


IF .NO_DIGITS GTR .DESTINATION CDSC$W_LENGTH] THEN RETURN (LIBS_DECOVF); 


-NO_DI 


Page 


GITS); 


0;. BYTE) = .BLOCK CTEMP_BUF2 + .BUF OFFSET, 0, 


evi (NO Tat Hf 5 the BUF2 + .BUF aa M heaies COSCS$W_LENGTH), TEMP_BUF1); 


(DESTINATION COSC$W_LENGTH 


(IF “DESTINATION N COSCSB_DTYPE e4 E Fat BS eCsK. DTYPE_NRO THEN LIBSAB_CVTPT_O ELSE 


LIBSAB_CVTPT_Z), DESTINATION CDOSC$W_CENGTH], .OUTPUT); 


END; 
CDSCSK_DTYPE_P) : 
BEGIN 


IF .NO_DIGITS GTR 31 THEN RETURN (LIBS$_DECOVF); 


ENoo (NO_DIGITS, TEMP_BUF2 + .BUF_OFFSET, DESTINATION CDSC$W_LENGTH], .OUTPUT); 
CINRANGE, OUTRANGE) : 

RETURN (LIBS_ FATERRLIB) ; 
TES; !For LRGINT_DEC, SMLFLT_DEC, LRGFLT_DEC, NBDS_DEC. 
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5-605 The converSion routine. UP leve ( ¢- S09 1964 9: 13; 83 PYARTL SRE TSCV IDX. 039; 1 . «133 1: 
: 1686 1769 : 
: 1687 1770 CK_SMLINT_NBDS, K_LRGINT_NBDS, K_DEC_NBDS) : : 
; 1689 20 SELECTONE .DESTINATION CDSC$B_DTYPE] OF : 
> 1690 177 SET : 
> 1691 1774 : 
: 169¢ 1775 CDSC$K_DTYPE_BU, DSCSK_DTYPE_T, DSCSK_DTYPE_VT) : : 
> 169 1776 BEGIN : 
; 1694 1777 CLASS_S_DESC ([DSCS$W_LENGTH] = K_TEMP BUF LENGTH; ; 
: 1699 1778 CLASS-S-DESC CDSCSA-POINTER] = TEMP_BUF2 : 
: 1697 1780 IF .SCALE GEQ 0 THEN DIGITS_IN_FRACT = 0 ELSE DIGITS_IN_FRACT = =.SCALE; : 
; 1699 1788 SELECTONE .CVT_PATH OF : 
; 1700 178 SET : 
> 1701 1784 3 : 
: 1208 1785 Ck_SMLINT NBDS] : : 
; 170 1786 4 B ; 
> 1704 1787 4 CVTLD_CINTMED_DATA, TEMP_BUF : 
; 1705 1788 4 STATUS = FORSCVT_D_TF (TEMP "Bue, CLASS_S_DESC, .DIGITS_IN_FRACT, .SCALE); : 
; 1706 1789 3 END; : 
; 1707 1730 § : 
; 1708 1791 CK_LRGINT_NBDS) : : 
; 1709 1792 4 : 
; 1710 1793 4 CVTROUH (INTMED_DATA, TEMP_BUF1); : 
: 1711 1794 4 ; 
: Ie 1793 4 IF .SRC_INFO CS_SIGN] THEN TEMP_BUF1<15, 1, 0> = 1; : 
3; 1714 1797 4 STATUS = FORSCVT_H_TF (TEMP_BUF1, CLASS_S_DESC, .DIGITS_IN_FRACT, .SCALE); : 
> 1715 1798 3 END; : 
: 1716 1799 : : 
; 1717 1800 CK_DEC_NBDS) : : 
; 1718 1801 4 BEGIN : 
: 1719 1802 4 NO_DIGITS = .SRC_INFO CS_LENJ; : 
> 1720 1803 4 CVTPS (NO DIGITS: INTMED DATA, NO_DIGITS, TEMP_BUF2); : 
> 1721 1804 4 CLASS S_DESC COSCS$W_LENGTH] = .NO-DIGITS + 1; : 
> 1722 1805 4 orsscots TH (CLASS_S_DESC, TEMP BOF1, 0, 0, . 
> 1723 1806 4 GR _BLKS OR“K-ENB_UNDERFCOW OR K IGN TABS )): : 
> 1726 1807 4 class s “DESC COSC$W_CENGTH] = K_TEMP_BUF_LENGT : 
> 1725 1808 4 STATUS = FORSCVT_H_TF (TEMP_BUFT, CLASS_S_ Desc. -DIGITS_IN_FRACT, .SCALE); : 
> 1726 1809 3 END; : 
: 1158 181i 3 sis 
: 1799 11g 3 BUF _OFFSET = CHSFIND NOT CH (K_TEMP_BUF LENGTH, TEMP_BUF2, %C° ') - TEMP_BUF2; 

; 17 181 FINAL_LEN = K_TEMP_BOF_LENGTH = .BUF_OFFSET - 
; 1731 1814 4 BEGIN 

: 1738 1815 4 

3; 173 1816 4 IF .DIGITS_IN_FRACT EQL 0 THEN 1 ELSE 0 
: 1734 1817 y 

: 1735 1818 END; 

; 17 1819 

: 17 1820 IF NOT .STATUS 

: 17 1821 THEN 

: 17 18 ¢ 4 BEGIN 

2 i7 1 4 

: 17 184 

: 17 1825 4 
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IF .DST_INFO CD_LEN) - 9 LEQ 0 
THEN 


N11 
rgunoriton routines Wi Level ere rreeelees tess = ities 
4 ggDIGHTSAINLFRACT = 33 

DIGITS_IN_FRACT = MIN (33, .DST_INFO CD_LEN] - 9); 
STATUS = FORSCVT_H_TE (TEMP_BUF1, CLASS_S_DESC, .DIGITS_IN_FRACT, .SCALE, 0, 4); 
IF NOT .STATUS THEN RETURN (LIB$_FATERRLIB); 


BUF _OFFSET = CHSFIND NOTCH (K_TEMP_BUF_LENGTH, TEMP_BUF2, %C' ') = TEMP_BUF2; 
FINAL LEN = K_TEMP_BOF_LENGTH = .BUF_OFFSET; 
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IF .STATUS EQL LIBS_STRTRU THEN RETURN (LIBS_DESSTROVF); 
IF NOT .STATUS THEN RETURN (.STATUS); 
END; 

COTHERWISE) : 


RETURN (LIBS_FATERRLIB); 
TES; 'For SMLINT_NBDS, LRGINT_NBDS, DEC_NBDS 
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STATUS"= LIBSSCOPY_R_DX6 (.FINAL_LEN, TEMP_BUF2 + .BUF_OFFSET, .DESTINATION); 
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| 
; 1770 1 24 
: 1771 1 CK_SMLFLT_SMLINT) : 
: 127¢ 1854 BEGIN 
: 177 1855 M SCALE_D_D; 
; 17% 1839 CUTRDL TINTMED_DATA, TEMP_BUF1); 
: 1776 1858 CASE .DESTINATION CDSC$B_DTYPE] FROM DSCSK_DTYPE_BU TO DSCSK_DTYPE_L OF 
3; 177 1859 SET 
: 1778 1860 | 
: 1779 1861 CDSCSK_DTYPE_BU) : 
; 1780 1866 4 BEGIN 
: 1781 1863 4 : | 
; 178¢ 1864 4 , IF .INTMED_DATA<15, 1, 0> THEN RETURN (LIB$_INVCVT); | 
s ee 1508 ? IF .TEMP_BUF1 CLONG_1] GTRU K_LRGST_BU THEN RETURN (LIBS_INTOVF); | 
: 1786 1868 4 OUTPUT CBYTE_1] = .TEMP_BUF1 (BYTE_1); 
3: 1787 1869 3 END; 
: 1788 1870 3 
: 1789 1871 3 COSCS$K_DTYPE_wWu] : 
: 1790 187¢ 4 BEGIN 
: 1791 1873 4 
; 1792 187% 4 IF .INTMED_DATA<15, 1, 0> THEN RETURN (LIB$_INVCVT); 
; 1796 1876 4 IF .TEMP_BUF1 CLONG_1] GTRU K_LRGST_WU THEN RETURN (LIB$_INTOVF); 
: 1796 1878 4 OUTPUT CWORD_1] = .TEMP_BUF1 CWORD_1]; 
> 1797 1879 3 END; 
: 1798 1880 3 
: 1799 1881 3 CDSCSK_DTYPE_BJ : 
: 1800 1882 4 N 
: 1801 1883 4 CVTLB (TEMP_BUF1, .OUTPUT); 
> 1802 1884 3 END; 
: 1803 1885 3 
> 1804 1886 3 CDSCSK_DTYPE_W] : 
; 1805 1887 4 N | 
: 1806 1888 4 CVTLW (TEMP_BUF1, .OUTPUT); 
> 1807 1889 3 END; 
: 1808 1890 
: 1809 1891 3 CDSCSK_DTYPE_L) : 
: 1810 1836 3 OUTPUT CCONG_1] = .iEMP_BUF1 CS_LONG_1); 
> 1811 1893 3 | 
: 1812 1894 CINRANGE, OUTRANGE) : 
> 1813 1895 RETURN (LIB$_FATERRLIB); 
+ 1814 1896 TES; 'For SMLFLT_SMLINT 
> 1815 1897 
; 1816 1898 2 END; 
> 1817 1899 2 !<BLF/PAGE> 
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CK_SMLFLT_LRGINT] : 
M_SCALE_D_D; 
CASE ,PESTINATION COSCSB_DTYPE] FROM DSCSK_DTYPE_LU TO DSCS$K_DTYPE_Q OF 


CDSCSK_DTYPE_LU] : 
BEGIN 


IF .INTMED_DATA<15, 1, 0> THEN RETURN (LIBS$_INVCVT); 
IF CMPD CINTMED_DATA, .LRGST_D_LU) GTR 0 THEN RETURN (LIB$_INTOVF); 


BICPSW (ZREF (K_SET_ARITHMETIC_TRAP)); 
CVTRDL (INTMED BATA, .OUTPUT); 
BISPSW (ZREF (R_SET_ARITHMETIC_TRAP)); 


CDOSCSK_DTYPE_Q] : 
CVTRDQ (INTMED_DATA, .OUTPUT); 


CINRANGE, OUTRANGE] : 
RETURN (LIB$_FATERRLIB); 
ES; 'For SMLFLT_LRGINT 


END 
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conversion rout 13: 
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Seeuse 
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0 09 Co Cd C9 C0 C9 09 CD CO CD 
SANS NNN 
CONOULSWN— 


90000 
oe 
Wwr—oo 


coco co 
PAA AAAAASMMMIVIVIVIVIVIVIVIVIS SEES LLL 


SSEtsce 


fo J 
~o 


wre 


a a ee ee ee a ea ee ee ee ee ed ed ee ed ed eed ed 


oo 
DCDODODOOWOVOOOCDODOODOOOODOOODODDODODODODDODOODOODOODDODODOODOODDOOODOOOOODOOOO 


SANS NN 
DONO E WN 0 OONAUE WN 9 ODNAUE WIN SO VOONOUSWWN OC OONOUS WN O”0 


— ws 
200000000: 
ooovono 

NOs 


V4.0-74 


2 
ne, 6-Sep-1984 BCVTDX.832;1 


CK_SMLFLT_NBDS) : 
SELECTONE .DESTINATION CDSCSB_DTYPE] OF 


COSCER AP IVPE J BU, DSCSK_DTYPE_T, DSCSK_DTYPE_VT3 : 
CLASS_S_DESC COSCSW_LENGTH] = K_TEMP_ BUF _LENGTH; 
CLASS" S-DESC DSCSA_ -POINTER] = TEMP_BUF 2; 

DIGI TS_IN. FRACT = 


soe”. naan COSCS$B_DTYPE] FROM DSCS$K_DTYPE_F TO DSCS$K_DTYPE_D OF 
COSCH TYPE FI : 


el” seb : 
TES 
END; 
IF .DST_INFO CD_LEN] - 7 GTR O 


DIGITS_IN_FRACT = MIN (.DIGITS_IN_FRACT, 
-DST_INFO CD_LENJ = 7); 


STATUS = FORSCVT_D_TE (INTMED_DATA, CLASS_S_DESC, .DIGITS_IN_FRACT, .SCALE, 0); 
IF NOT .STATUS THEN RETURN (LIBS_FATERRLIB); 
BUF pret CHSFIND NOT CH (K_TEMP_BUF LEWeTH. TEMP_BUF2, %C' *) = TEMP_BUFZ; 
FI LEN = K_TEMP_B BOF LENGTH = .BUF_OFFSE 
OUTPUT" STR_LEN = .FINAC_LEN 
STATUS~= LIBSSCOPY_R NOxB" (. FINAL _LEN, TEMP_BUF2 + .BUF_OFFSET, .DESTINATION); 
IF .STATUS EQL LIB$_STRTRU THEN RETURN (LIBS$_DESSTROVF); 
IF NOT .STATUS THEN RETURN (.STATUS); 
END; 

COTHERWISE) : 


RETURN (LIBS_ FATERRLIB); 
ES; 'For SMLFLT_NBDS 
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conversion routine. Upi level” : 6-Sep-19 4 99:43:93 LIBRTL.SRC (ibcv tex. 04951 


b TREE VIOROR 


009 
900 


=r 


~~ 
ow 


oO 
oO 


CK_LRGFLT_SMLINT] : 
BEGIN 


M_SCALE_H_H; | 
CUTRHL TINTMED_DATA, TEMP_BUF1); 
CASE. - DESTINATION CDSC$B_DTYPE] FROM DSC$K_DTYPE_BU TO DSC$K_DTYPE_L OF 


SeSeSSoRe 


| 

| 

CDSCSK_DTYPE_BU) : 
BEGIN | 


IF .INTMED_DATA<15, 1, 0> THEN RETURN (LIB$_INVCVT); 
IF .TEMP_BUF1 CLONG_1] GTRU K_LRGST_BU THEN RETURN (LIBS_INTOVF); 
QuTPUT (BYTE_1] = .TEMP_BUF1 CBYTE_1); 


CDSC$K_DTYPE_WU) : 
BEGIN 


IF .INTMED_DATA<15, 1, 0> THEN RETURN (LIBS_INVCVT); 
IF .TEMP_BUF1 CLONG_1] GTRU K_LRGST_WU THEN RETURN (LIBS_INTOVF); 
— CWORD_1] = .TEMP_BUF1 CWORD 1]; 


BDOOCOCSOCOOOOOOOOOWWMMmococcccc~ 


DOOODOOODOODOOODOODOOOOO 
AUIS $90 OONA UE WIN OOO UNA UE WN 0 ODNOAU EWN "OOODNOUS WHO” 
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hI —§ ODODONAUES WN “OOWNOUS WHO 


N i 
CVTLB (TEMP_BUF1, .OUTPUT); | 
END; 


CDSCSK DIYPE_W) : | 
CVTLW (TEMP_BUF1, .OUTPUT); 
END; 


SARA 


CDSCSK pTvPe lL) : 
OUTPUT CCONG_1) = .TEMP_BUF1 CS_LONG_1); 


CINRANGE, OUTRANGE) : 
RETURN (LIB$_FATERRLIB); 
TES; 'For LRGFLT_SMLINT 
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E 
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esty -DX_DX any to any fore type conversion 16-Sep-1984 00:43:03 AX-11 a MY v4.0 $3.4 


conversion routine, 6-Sep-1984 LIBRTL CVTDX. 


z 


OODNA NEW O OONOUFSWN OO” 


M_SCALE_H_H; 
CASE, ,PESTINATION COSC$B_DTYPE] FROM DSCSK_DTYPE_LU TO DSCSK_DTYPE_Q OF 


CRLRGFLT LRGINT) : 


COSCSK_DTYPE_LU] : 
BEGIN 


DOODOOOOO0O0O 


PAA TIMIVIVIV 


IF .INTMED_DATA<15, 1, O> THEN RETURN (LIB$_INVCVT); 
IF CMPH CINTMED_DATA, .LRGST_H_LU) GTR O THEN RETURN (LIB$_INTOVF); 
BICPSW (ZREF (K_SET_ARITHMETIC_TRAP)); 


CVTRHL (INTMED BATA, .OUTPU 
BISPSw (ZREF (R_SET_ARITHMETIC_TRAP)); 


—OCONAOUS WH OOO~ 


SSES 


CDSC$K_DTYPE_Q] : 
CVTRHQ (INTMED_DATA, .OUTPUT); 


CINRANGE, OUTRANGE) : 
RETURN (LIB$_FATERRLIB); 
TES; 'For LRGFLT_LRGINT 
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lev 6-Sep-1984 LIBRTL.SRCILIB vt 


CKALRGFLT SMLFLTI : 
M_SCALE_H_H; 
CASE DESTINATION COSCSB_DTYPE] FROM DSCSK_DTYPE_F TO DSCSK_DTYPE_D OF 
COSCSK_DTYPE_F 
CVTHF Cintnes DATA, OUTPUT); 


COSCSK_DTYPE D) : 
CVTHD CINTHED DATA, .OUTPUT); 


CINRANGE, OUTRANGE] : 
RETURN (LIB$_FATERRLIB); 
Tes: 'For LRGFLT_SMLFLT 


——————— . — - 
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LIBSCVTDXDX LIBSCVT_DX_DX any to ~ data we conversion 16-Sep-1984 00: 43303 AX-11 Bliss-32 V4.0-74 Page 45) 
1-009 The conversion routine, UPI leve 66-Sep-1984 13:10:52 LIBRTL.SRCILIBCVTDX.B32;1 (19) 
; 2000 o76 
3 id of CK_LRGFLT_NBDSJ : 
3 608 O78 SELECTONE .DESTINATION CDOSCSB_DTYPE] OF 
Be cs 
; 2006 oes COSCSK_DTYPE_BU, DSCSK_DTYPE_T, DSCSK_DTYPE_VTJ : 
: 2007 8 BEGIN 
3; 2008 084 
: 2009 085 LOCAL 
; 910 086 NOT_DIGITS_IN_FRACT; 
3 at nth CLASS_S_DESC COSC$W_LENGTH] = K_TEMP_BUF _LENGTH; 
3; 201 089 CLASS_S_DESC CDOSCSA_POINTER] = TEMP _BUF 23 
3 2014 090 DIGITS_IN_FRACT = 
3; 2015 091 4 BEGIN 
3 sols 4 4 
3; 2017 09 4 CASE .SOURCE CDSCS$B_DTYPE] FROM DSCSK_DTYPE_G TO DSCSK_DTYPE_H OF 
; 2018 $09e 4 SET 
; 2019 095 4 
; 2020 2096 4 CDSC$K_DTYPE_G] : 
: 2021 2097 4 15; 
; $osg 2098 4 
3 202 2099 4 CDSC$K_DTYPE_H] : 
; $ose 2100 4 33; 
: 2025 2101 4 TES 
: 2026 $106 4 
: 2027 2103 3 END; 
; 2028 2104 3 NOT_DIGITS_IN_FRACT = 
; seep 2105 4 BEGIN 
; 2030 2106 4 
3; 2031 2107 4 CASE .SOURCE COSC$B_DTYPE] FROM DSCSK_DTYPE_G TO DSCS$K_DTYPE_H OF 
3 $038 2108 4 SET 
: 203 2109 4 
3 2034 2110 4 CDSCSK_DTYPE_G) : 
3; 2035 2111 4 ts 
: 2036 sii¢ 4 
3 2037 11 4 CDSCSK_DTYPE_H] : 
3; 2038 2114 4&4 8; 
; ith sii? 4 TES 
3; 2040 116 4 
; 2041 2117 END; 
3 eh 2118 
: Be7 13 -DST_INFO CD_LEN] = .NOT_DIGITS_IN_FRACT GTR 0 
3 2065 121 DIGITS_IN_FRACT = MIN (.DIGITS_IN_FRACT 
: 046 : .DST_INFO CD_LEN] - .NOT_DIGITS_IN_FRACT); 
3 rt \¢¢ STATUS = FORSCVT_H_TE CINTMED_DATA, CLASS_S_DESC, .DIGITS_IN_FRACT, .SCALE, 0, 4); 
3 Bet ' § IF NOT .STATUS THEN RETURN (LIBS_FATERRLIB); 
Z O36 128 BUF _OFFSET = CHSFIND NOT CH (K_TEMP_BUF_LENGTH, TEMP_BUF2, %C° *) - TEMP_BUF2; 
3: 205 129 FINAL_LEN = K_TEMP_BOF_LENGTH = -BUF _OFFSET; 
3: 2054 130 OUTPUT_STR LER = .FINAC_LEN; 
: $p32 $i } STATUS = LIBSSCOPY_R_DX6 (.FINAL_LEN, TEMP_BUF2 + .BUF_OFFSET, .DESTINATION); 


ESBS HRSCATSDHSEE, sxeHsstndnfebgtO™ Conversion NEHegHRHs OBSEROS WMGLY SUANCHE YEO TMS 


oh 3 IF .STATUS EQL LIBS$_STRTRU THEN RETURN (LIB$_DESSTROVF); 
3 085 5 IF NOT .STATUS THEN RETURN (.STATUS); 

: 61 5 END; 

: 068 1 § COTHERWISE) : 

> 2064 140 RETURN (LIBS$_FATERRLIB); 

; 65 141 TES; 'For LRGFLT_NBDS 

: 2067 128 | <BLF /PAGE> 
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LIBSCVTDXDX LIBSCVT_DX_DX any fo ~ data type conversion 16-Sep-1984 00:43:03 AX-11 Oh reer V4.0°74 
1-009 The conversion routine, UPI Leve 66-Sep-1984 13:10: LIBRTL.SRCILIBCVTDX.B832;1 
; 2069 144 
; 2070 145 CK_DEC_SMLINT] : 
; 2071 138 BEGIN 
5 ore 14 M_ SCALE _P_P; 
; 073 148 COTPL (NO“DIGITS, INTMED_DATA, TEMP_BUF1); 
H 38 139 cent , yasiommteintees COSCSB_DTYPE] FROM DSCSK_DTYPE_BU TO DSCS$K_DTYPE_L OF 
; 2077 13 
; 2078 15 COSC$K_DTYPE_BU) : 
5 14 13 ? BEGIN 
3 Oa: 136 : IF .TEMP_BUF1 CS_LONG_1] LSS 0 THEN RETURN (LIBS$_INYCVT); 
: 2088 138 2 IF .TEMP_BUF1 CLONG_1] GTRU K_LRGST_BU THEN RETURN (LIBS_INTOVF); 
; 2085 160 4 OUTPUT CBYTE_1] = .TEMP_BUF1 CBYTE_1) 
; 2086 161 ; END; 
3; 2087 166 
3; 2088 2163 3 CDOSCSK_DTYPE_wu] : 
3; 2089 2164 & BEGIN 
; 2090 2165 4 
; $003 $198 ? IF .TEMP_BUF1 CS_LONG_1] LSS 0 THEN RETURN (LIB$_INVCVT); 
3 add $108 : IF .TEMP_BUF1 CLONG_1] GTRU K_LRGST_WU THEN RETURN (LIB$_INTOVF); 
3; 2095 2170 4 OUTPUT CWORD_1] = .TEMP_BUF1 CWORD_1] 
: 2096 2171 3 END; 
: sad $176 3 
; 2098 2173 3 COSCS$K_DTYPE_B] : 
3; 2099 2174 4 N 
3; 2100 2175 4 CVTLB (TEMP_BUF1, .OUTPUT); 
: 2101 2176 ; END; 
; $108 2177 
3; 210 2178 3 CDSCSK_DTYPE_W] : 
3 2104 2179 4 
; $109 2180 4 CVTLW (TEMP_BUF1, .OUTPUT); 
: 2106 2181 ; END; 
3; 2107 $186 
3; 2108 2183 3 COSCS$K by: L) : 
; 344 sige 3 OuTPUT CCONG_1] = .TEMP_BUF1 CS_LONG_1); 
: $114 2186 3 CINRANGE, OUTRANGE) : 
Z gii¢ 187 RETURN (LIBS_FATERRLIB); 
3; 211 188 ES; 'For DEC_SMLINT 
s 2114 189 
3: 2115 190 2 END; 
3 2116 191 2 !<BLF/PAGE> 
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SCVT_DX_DX any to ony data type conversion 16-Sep-1984 00:43: AX-11 Bliss-32 V4.0-74 
conversion rout ne, U PI level” : g-3ee- 1382 90:43:93 LIBRTL.SR REIL IBCVTDOX.832;1 


hla 


CK_DEC LRGINTS : 
M_SCALE_P_P; 
sac | pbateieslcnen COSCSB_DTYPE] FROM DSCSK_DTYPE_LU TO DSCS$K_DIYPE_Q OF 


CDSCSK_DTYPE_LU] : 
BEGIN 


IF .SRC_INFO CS_SIGN] THEN RETURN (LIB$_INVCVT); 
IF (CMPP (NO_DIGITS, INTMED_DATA, %REF (K_PACK_LU_LEN), .LRGST_P_LU) GEQ 0) 
RETURN (LIBS$_INTOVF); 
PSW (AREF (K SET ARITHMETIC TRAP)) 


BIC 
CVTPL (NO_DIGITS, IRTMED DATA, .OUTPUT); 
B1SPSu eae (K get NARITARET IC _TRAP)); 


COSCSK_DTYPE_Q) : 
BEGIN 
’ 5 tama 


_S_DESC LENGTH] = .NO-D ; 
CLASS S=DESC DSCSA ~POINTER] 2 _ NORD B 
OTS$CVT-T_H (CLASS_S_DESC, TEMP_BUFT); 
CVTRHG TIEMP_BUF1,~ .OUTPUT); 


CINRANGE OUTRANGE) : 
TURN (LIB$_FATERRLIB); 
TES: 'For DEC_LRGINT 
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el et ee ek et De ed ed ed od ed dd od wd od 
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PROPINIPININOPYNYID 2 = 9 | MQOOOOCOOOCOOWOWOWOOOOOO sw 
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E 
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co 
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1 Oars v4.0- 
LIBRTL.SRCJLIBCVTDX. 


6-Sep-1984 
CK_NBDS_SMLINTJ : 
BEGIN 
CLASS_S_DESC PRSCSW LENGTH = .SRC_INFO CS ; 
CLASS S_DESC_ CDSCSA_POINTER] = .SRC_INFO CS POINTER] 
STATUS = OTSSCVT_T_B (CLASS _S DESC, TEMP_BUF1, 0, -.SCALE, 
(K-IGN_BLKS OR™K_ENB_UNDERFLOW OR K_IGN_TABS OR K_ENB_SCALE)); 


IF NOT .STATUS THEN RETURN (LIBS_INVNBDS); 
CVTRDL (TEMP_BUF1, TEMP_BUF 2); 
a COSC$B_DTYPE] FROM DSC$K_DTYPE_BU TO DSCS$K_DTYPE_L OF 


CDSC$K_DTYPE_BU] : 
BEGIN 


IF .TEMP_BUF2 CS_LONG_1] LSS 0 THEN RETURN (LIBS_INVCVT); 
IF .TEMP_BUF2 CLONG_1] GTRU K_LRGST_BU THEN RETURN (LIBS_INTOVF); 
— CBYTE_1] = .TEMP_BUF2 CBYTE_1]; 


CDSCSK_DTYPE_WU] : 
BEGIN 


If .TEMP_BUF2 C[S_LONG_1] LSS 0 THEN RETURN (LIB$_INVCVT); 
IF .TEMP_BUF2 CLONG_1) GTRU K_LRGST_WU THEN RETURN (LIBS_INTOVF); 
QuTPUT CWORD_1] = .TEMP_BUF2 CWORD_1J; 


CDSC$K_DTYPE_B) : 
CVTLB (TEMP_BUF2, .OUTPUT); 
END; 


CDOSCSK_DTYPE_W) : 
CVTLW (TEMP_BUF2, .OUTPUT); 
END; 


CDSC$K_DTYPE_L) : 
QUTPUT CLONG_1] = .TEMP_BUF2 CS_LONG_1]; 
CINRANGE, OUTRANGE) : 


RETURN (LIB$_FATERRLIB); 
TES; 'For NBDS_SMLINT 
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M12 

IBSCVTDXDX LIBSCVT_DX_DX an data type conversion 16-Sep-1984 00:43: AX-11 Bliss-32 V4.0-74 
Bint: The conversion A ly PI lowst” . * at 7 90:43:93 LIBRTL.SR RCIL 1scvt DX. O33 4 
3; 2213 5 ‘ 
: 1 $ CK_NBDS_LRGINT) : 
4 6 88 CASE. - DESTINATION COSCSB_DTYPE] FROM DSC$K_DTYPE_LU TO DSC$K_DTYPE_Q OF 
5 2218 90 
: 2219 91 COSC$K_DTYPE_LU] : 
; 20 36 BEGIN 
: 1 9 CLASS_§ DESC poscsy C$W_LENGTH] = .SRC_INFO cs LEN): 
; 3¢ 94 CLASS-S-DESC_COSCSA-POINTER] = .SRC_ INFO Ly POINTER]; 
; 95 STATUS = OTSS$CVT_T_B (CLASS.S spec. “TEMP_BUF1, 0, -.SCALE, 
: 238 36 (K_IGN_BLKS OR“K_ENB _UNDERFLOW OR K ren. TABS OR Kk One. SCALE)); 
; 226 38 IF NOT .STATUS THEN RETURN (LIB$_INVNBDS); 
: 328 00 ; IF .TEMP_BUF1<15, 1, O> THEN RETURN (LIB$_INVCVT); 
5 3280 30¢ 3 IF CMPD (TEMP_BUF1, .LRGST_D_LU) GTR 0 THEN RETURN (LIB$_INTOVF); 
; g23¢ $302 3 BICPSW (XREF (K_SET ARITHMETIC. TRAP)); 
> 223 2305 3 CVTRDL (TEMP_BUF1 TPUT); 
> 2236 2306 BISPSW (XREF™(K rer” “ARITHMETIC_TRAP)); 
> 2235 2307 : END; 
3 s$eo 2308 
: 2237 2309 CDSCS$K_DTYPE_Q) : 
: 3238 3310 BEGIN 
: 2239 311 CLASS_S_DESC roscsu_t LENGTH] = .SRC_INFO CS_LEN): 
> 2240 e312 CLASS-S-DESC COSCSA~POINT ER] = SRE_ INFO cs POINTER); 
> 2241 313 3 STATUS = OTSSCVT_1_A (CLASS_S_DESC, TEMP_BUF1, 0, -.SCALE, 
3 ssc sais 3 (K_IGN_BLKS OR“K_ENB _UNDERFLOW OR K_YGN_ TABS OR K_ENB_SCALE)); 
; $see $318 ; IF NOT .STATUS THEN RETURN (LIB$_INVNBDS); 
> 2246 2318 3 CVTRHQ (TEMP_BUF1, .OUTPUT); 
> 2267 2319 2 END; 
> 2268 2320 2 
; 3049 2321 2 CINRANGE, OUTRANGE] : 
> 2250 332e 2 RETURN (LIB$_FATERRLIB); 
> 2251 2323 2 Tes" 'For NBDS_LRGINT 
: $292 2324 3 
: 225 2325 '<BLF /PAGE> 
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IBSCVTDXDX LIBSCVT_DX_DX any to any data type conversion 16-Sep-1984 00:43: AX-11 Bliss-32 V4.0-7 Page 51 
44809 The conversion reut ne, tpi level” ee 7 00:3: 93 YMBRTL SREILISCVTOX. 83 31 . veel 
3 5 : | 
; 3 56 5 5 Ck_NBDS LRGFLT3 : | 
: § 8 § CLASS_S_DESC CDSCSW_LENGTH] = .SRC_INFO cs LEN]; | 
; 2 9 CLASS-S_DESC CDSCSA_POINTER] = .SRC_INFO CS_POINTER]; 
: 361 ¢ CASE DESTINATION CDSC$B_DTYPE] FROM DSCS$K_DTYPE_G TO DSCS$K_DTYPE_H OF 
: 226 i 
3 2264 5 CDSCSK_DTYPE_G] : 
3 2265 $ 4 BEGIN 
; 66 4 STATUS = OTS$SCVT_T_G (CLASS_S_DESC, TEMP_BUF1, 0, =.SCALE, 
; ae S ? (K_IGN_BLKS OR™K_ENB_UNDERFLOW OR K_IGN_TABS OR K_ENB_SCALE}); 
; 370 9 ‘ IF NOT .STATUS THEN RETURN (LIBS$_INVNBDS); 
: 271 4g 4 OUTPUT [CLONG_1] = .TEMP_BUF1 CLONG_1); 
; gore 43 & OUTPUT CLONG-2] = .TEMP~BUF1 [LONG 2]; 
3; 2e7 sete END; 
3 2274 345 
3; 2275 2346 COSCSK_DTYPE_H) : 
3 ss78 347 & BEGIN 
: 2277 348 4 STATUS = OTSSCVT_T_H (CLASS_S_DESC, TEMP_BUF1, 0, -.SCALE, 
3 2979 $02 ? (K_IGN_BLKS OR™K_ENB_UNDERFLOW OR K_IGN_TABS OR K_ENB_SCALE)); 
: 2280 2331 4 IF NOT .STATUS THEN RETURN (LIB$_INVNBDS); 
3; 2281 326 4 
3 2282 2353 4 CHSMOVE (16, TEMP_BUF1, .OUTPUT); 
3 2283 2354 3 END; 
3 2284 2355 3 
3; 2285 2356 3 CINRANGE, OUTRANGE) : 
: oo86 2357 3 RETURN (LIBS$_FATERRLIB); 
3 2287 2358 3 TES; 'For NBDS_LRGFLT 
3; 2288 2359 3 
3; 2289 2360 2 END; 
3; 2290 2361 2 !<BLF/PAGE> 
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188 VTDXDX SCVT_DX_DX any to ony fet ype conversion 16-Sep-1984 90:43:05 AX-11 Bliss-32 V4.0-74 Page 


at 
leve 


L18 
The conversion routine, 66-Sep-1984 LIBRTL.SRCJLIBCVTDX.832;1 (2 
: 229 66 
; g7 o7 CK_NBDS_NBDS] : 
: 2295 68 SELECTONE «DESTINATION COSC$B_DTYPE] OF 
: 229 6 
3 2298 68 CDSCS$K_DTYPE_BU, DSCSK_DTYPE_T, DSCSK_DTYPE_VT] : 
: 2299 69 BEGIN 
; 2500 70 
3 2301 71 IF .SCALE NEQ 0 
: 8g Me THEN 
: 230 73 4 BEGIN 
3 2304 74 & CLASS_S_DESC FOSCSW_LENGTH) = .SRC_INFO CS_LEN]; 
: 2305 2375 & SS"S"DESC CDSC$A_POINTER] = .SRU_INFO CS_POINTER); 
; 2306 é 76 4 STATUS = OTSSCVT_T_A (CLASS S_DESC, TEMP_BUF1, 0, -.SCALE, 
; 2307 377 4 (K_IGN_BLKS OR™K_ENB_UNDERFLOW OR K_IGN_TABS OR K_ENB_SCALE)); 
3; 2308 Ha 4 
3 2309 79 4 IF .STATUS 
: 2310 380 4 THEN 
3 2311 381 5 BEGIN 
3 $318 $386 5 CLASS_S_DESC FOSC$W_LENGTH) = K_TEMP_BUF_LENGTH; 
; selz seer : CLASS_S_DESC CDSC$A_POINTER] = TEMP_BUF 2; 
3; 2315 2385 5 IF .DST_INFO CDO_LEN] = 9 LEQ 0 
: 2316 2386 5 
3 2317 2387 5§ DIGITS_IN_FRACT = 33 
3; 2318 2388 5 ELSE 
3 Seip $363 : DIGITS_IN_FRACT = MIN (33, .DST_INFO CD_LEN] - 9); 
3 $35) $331 2 STATUS = FORSCVT_H_TE (TEMP_BUF1, CLASS_S_DESC, .DIGITS_IN_FRACT, 0, 4); 
3 $352 2395 ; IF NOT .STATUS THEN RETURN (LIBS$_FATERRLIB); 
3 2325 2395 5 BUF _OFFSET = CHSFIND_NOT_CH (K_TEMP_BUF_LENGTH, TEMP_BUF2, %C' ') = TEMP_BUF2; 
; 2326 2396 5 FINAL_LEN = K_TEMP_BOF_LENGTH = .BUF_OFFSET; 
: 2327 2397 5 OUTPUT_STR_LEN = .FINAC_LEN; 
: $356 $ao8 2 STATUS = LIBSSCOPY_R_DXS (.FINAL_LEN, TEMP_BUF2 + .BUF_OFFSET, .DESTINATION); 
3 2380 seo 2 IF .STATUS EQL LIB$_STRTRU THEN RETURN (LIB$_OUTSTRTRU); 
3 2332 340e 5 IF NOT .STATUS THEN RETURN (.STATUS); 
: 233 2403 5 
3 2334 2404 5§ END 
3 tH $102 4 LSE 
3 23 406 4 RETURN (1.1B$_INVNBDS); 
3: 2337 ott 4 
: 2338 408 4 END 
3: 2339 2409 3 ELSE 
: 2340 410 4 BEGIN 
3 2341 411 4 OUTPUT_STR_LEN = .SOURCE CDSC$W_LENGTH); 
: 34¢ 4g 4 STATUS~= LIBSSCOPY_DXDX6 (.SOURCE, .DESTINATION); 
3 34 “3 ‘ IF .STATUS EQL LIBS$_STRTRU THEN RETURN (LIB$_OUTSTRTRU); 
; 56 416 4 IF NOT .STATUS THEN RETURN (.STATUS); 
3; 254 417 & 
3 2348 418 3 END; 
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3 9 419 
; 29 420 END; 
s 1 421 
; 2¢ 4 : COTHERWISE) : 
; 235 4 RETURN (LIBS. FATERRLIB); 
H ee ? : TES; 'For NBDS_NBDS 
: 8 426 TES; 'End of the main CASE statement. 
3; 2357 427 
; 2358 428 ; '+ 
: 2360 > , i If output string Length is requested then supply it. 
: 2361 431 
; toa] ay , IF ACTUALCOUNT () GTR 2 THEN (.OUTLEN)<O, 16, 0> = .OUTPUT_STR_LEN; 
: 2364 2434 2 !<BLF/PAGE> 
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1-009 The conversion foeten Upi level” b-Sep- 1382 0: 18; 93 LIBRTL. SRC ILIBCVTDX.B3 31 oe 360 
7 11 F BRB 40$ : 
18 fs p} i 42$ cMPL R6, #27 + 1359 
1C AE FD AD x F MOVZWL SRC_INFO+5, NO_DIGITS + 1360 
60 AE 1c OAL DO =—oAD 1C AE 08 002FD CVTPS NO DIGITS. INTMED_DATA, NO_DIGITS, : 
24 «AE 1¢ AE 01 A1 00 06 ADDW3 He NO DIGITS, CLASS_S_DESC : 
28 «AE 60 AE 9E 0030C MOVAB TEMP -80F1 CLASS_S_DEST+4 : 
7E 44 BF 9A 00311 MOVZBL #68,~=(SP5 ; 
7E 24 AE CE 00315 MNEGL SCALE, =(SP) : 
7E 04 00319 CLAL : 
p0 AD 9F 0 1B PUSHAB INTRED DATA : 
4 AE 9F OO31E PUSHAB Sa $ DESC ; 
000000006 00 05 FB 00321 CALLS OTSSCVT_T_D ; 
6E 50 D0 00328 MOVL S : 
32 6 : 00328 BLBS eTATOS. 44$ : 
0182 31 0032E BRW : 
21 56 01 003 143$:  CMPL R6, #33 + 1364 
2a 12 00334 BNE 4 6 44$ ; 
24 «AE FD AD BO 00336 MOVW eRe. INFO+5, CLASS_S_DESC : 1366 
28 «OA F9 AD DO 00338 MOVL SRCTINEO+1, CLASS~S~DESC+4 > 1367 
7E 55 BF 9A 00340 MOVZBL #85° - : 1369 
7E 24 AE CE 00344 NEGL SCALE, =(SP) : 1368 
7E 04 00348 CLAL SP) ; 
DO AD 9F 0034A PUSHAB INTMED_DATA : 
34 AE 9F 00340 PUSHAB ¢ ASS_S_DESC F 
009000006 00 05 FB 00350 CALLS OTsscvT_ T_D : 
6 50 00 00357 MOVL RO. STA ; 
03 6E ES 0035A BLBS STATUS, Ms + 1371 
OD3F 31 90350 BRW 2 ; 
01 OA 69 BF 00360 44$: CASEB (R9), #10, #1 : 1376 
000D 0007 00364 45$: «WORD 46s- 45$,- ; 
0064 31 00368 BRW 303$ : 1397 
68 DO =6AD 476 00368 468:  CVTDF INTMED_DATA, (OUTPUT) : 1381 
04 11 0036F BRB : 1383 
68 DO AD 7D 00371 47$: | MOVQ INTMED_DATA, (OUTPUT) + 1389 
016F 31 00375 48$:  BRW 68$ : 1392 
04 56 D1 00 78 49$ CMPL = RG, #4 : 1409 
3p 12 00378 BNEQ 52 : 
51 DO AD 9E 00370 MOVAB INTMED_DATA, R1 > 1410 
50 DO = AD Ha 0381 MOVAB INTMED“DATA, RO : 
000000906 00 16 00385 JSB LIB BSSCUT _CVELH_R1 : 
AE D> 6 50$:  TSTL SCALE : 
141 Bc BLEQ i$ ; 
51 D0 «6AD OE 00 MOVAB INTMED_DATA, R1 : 
50 FB68 CF 9E 00394 MOVAB P.AAK,~R ; 
000000006 00 16 0399 JSB LIBS$CVT_MULH2_R1 ; 
20 Ag D 0 OF DECL CALE ; 
E? 11 he BRB $ : 
46 18 0 AG 51$:  — BGEQ 4$ ; 
51 DO «AD 9E 0036 MOVAB INTMED_ DATA, R1 F 
50 F863 cr Ha AA MOVAB PAA : ; 
00000 0 6 60 1 AF JSB LIBS eye _DIVH2_R1 ; 
0 AE 06 BS INCL SCALE ; 
A 11 0 B BRB 1$ : 
OA 6 D1 003BA 52$ CMPL = RO, _-#10 > 1414 
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LIBSCVTDXDx LIBSCVT_DX_DX any to any data type conversion 18- ep-1984 00:43: AX-11 Bliss-32 V4.0-74 Page 62 
1-009 The conversion routine, tpi level” ga 865-19 4 00: 8:93 LIBRTL.SRCJLIBCVTDX.832;1 . (26) 
28 AE 60 AE 9E 00491 MOVAB TEMP. BUF, CLASS_S_DESC+4 | 
7E 44 BF 9A 00496 MOVZBL #68,~=(SP5 : 
7E 24 AE cE 049A NE GL SCALE, -(SP) : | 
pO AD 9F on} PUSHAB INTMED_DATA : 
4 AE OF 004A PUSHAB CLASS_S_DESC : 
000000006 00 Q FB 004A6 CALLS #5, OTSSCVT_T_H : | 
6E 0 DO 004A MOVL RO. STATUS : | 
1 6E CE 048 BLBS STATUS, 64$ : 
20 AE D5 00483 62$:  TSTL SCALE : 
0 18 0486 BGEG © 63$ F 
50 000000006 8F pO 00488 MOVL #LIBS_FLTUND, RO : 
50 000000006 aF Bd 904¢9 63$: MOVL #LIBS_FLTOVF, RO ; 
01 BF 004CB8 64$: CASEB (R9), #27, #1 + 1435 
0016 0007 004CC 65$: .WORD 668-455, : 
OBFC 31 00400 BRW 03$ + 1455 
50 DO. = AD 3 004D3 66$: | MOVAB INTMED_DATA, RO + 1440 
51 58 00 00407 MOVL OUTPUT? R ; 
000000006 00 16 OO4DA JB LIBSSCVT_CVTHG_R1 tes 
68 DO. AD 10 28 004E2 67$: | MOVC3 #16, INTMED_DATA, (OUTPUT) + 1448 
05 FF AD €9 004E7 68$:  BLBC SRC INFO+7,~69$ + 1450 
01 AB 80 8F 88 OO4EB BISB2 #128, 1(ouTfPUT) : 
OBES 31 O04F0 69$:  BRW 304$ + 1226 
05 56 D1 004F3 70$:  CMPL  R6, #5 + 1467 
16 12 004F6 BNEQ 72$ : 
DO AD DS 004F8 TSTL  INTMED_DATA : 1468 
04 18 004FB BGEQ 71$ ; 
FF AD 01 88 004FD BISB2 #1, SRC_INFO+7 : 
1c AE 1F D0 00501 71$:  MOVL #31, NO~DIGITS : 
DO AD 1¢ AE DO AD 9 90505 cVTLP JNTMED_DATA, NO_DIGITS, INTMED_DATA ; 
1D ge D1 iets 72$:  CMPL R6, #29 + 1472 
49 12 00511 BNEQ 74$ ; 
1c AE FD AD 36 00513 MOVZWL SRC_INFO+5, NO_DIGITS + 1473 
67 01 DO. =o AD 1C AE Hi 00518 CMPP4 NO_BIGITS, INTMED_DATA, #1, (PACK_ZERO) F 
54 54 02 02 EF 09 i EXTZV #2, #2, R4, RO : 
04 15 00528 BLEG 73% ; | 
FF AD 01 8 09 A BISB2 #1, SRC_INFO+7 : 
20 AE OD — 738: =‘ TSTL scALt ; 
29 13 00531 BEQL 4$ F 
60 AE DO AD 1c AE 3 09 3 MOVP NO_DIGITS, INTMED_DATA, TEMP_BUF1 : 
55 DO «=6AD «(9E 0053A MOVAB INTMED DATA, RS ; 
54 1c OA 9 05 MOVAB NO_DIGITS R4 ; 
14 AE 05 D O94 MOVL (SP5 : 
5 14 AE 9E 0054 MOVAB 20(SP), R3 : 
52 60 AE 9E 0054A MOVAB TEMP _BUFI, R2 ; 
31 1C AE 9E 6 4 MOVAB NO DIGITS, R1 : 
0 20 A Ha 5 MOVAB SCALE RO : 
000000006 00 1 : 5 $B LB EvT_ASHP_R1 : 
06 OF 69 8F 0055¢ 74$:  CASEB (R9), #15, #6 : 1478 
006D 003¢ 0026 0011 0560 75$: WORD 76$-?75$,- : | 
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LIBRTL.SRCILIBCVTDX.B32;1 
CVT_SCALE_OU_UP_BY_10_R1 


oA 
moe 


DATA, RO 
T_SCALE_OU_DOWN_BY_10_R1 


D_DATA+8 INTMED. DATA+4, RO 
D-DATA+12, 


INF 101$ 
ED_ DATAeT 100$ 


ED_DATA+2 
TMED_DATA, (OUTPUT) 
ceINFOS?, 102$ 
TMED_DATA+2 
TMED_DATA, (OUTPUT) 
Hes 


RC_INFO+7, 105$ 
INT FRED. DATA, INTMED_DATA 
NTMED_DATA, RO 


ARiMeD_ DATA 


SRC_INFO+7, 107$ 
INTRED path, INTMED_DATA 
NTMED_DATA 


INTRED_ DATA, #-2147483648 


SRC [wrest s 110$ 
NTRED_ 


SRC INFO8?, 110$ 
INTRED DATA, INTMED DATA 
NTMED_DATA, (OUTPUT) 


cLASS_s DESC 
Te M3 ay “CCASS_S_DESC+4 
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ett The conversion By Upi lever’ aes 00 tbig3 LIBRTL.SRCJLIBCV Vin. 3551 ° 283 
21 12 ROED BNEQ 114$ : 
1 60 AE 9E O06EF MOVAB TEMP BUF. . + 1627. 
0 DO AD 9 bOF3 MOVAB  ~INTMED : | 
000000006 00 16 O6F JSB LIBS$C cot Tent Aady R1 : 
05 FF OAD § OEFD LBC sh INF t 1629. 
61 AE 80 ar 8 0070; BISB2 #128, TE OnP “BUFI+1 : 
1 DD 07 6 113$:  PUSHL #1 + 1631, 
7E 7C 007 CLRQ. = =(SP) : | 
C AE pp 0070A PUSHL SCALE ; 
008C 31 0070D BRW 121$ : 
11 56 0100710 114$: CMPL R6, #17 + 1634 
21 Ne 9071 BNEQ 116$ : 
D1 AD 95 0071 TSTB  =—«sINTMED_DATA#1 > 1637) 
04 18 00718 BGEQ 115$ : | 
FF AD 01 88 OO71A BISB2 #1, SRC_INFO+7 : 
01 DD OO71E 115$:  PUSHL #1 : 1639 
7E 7C 90720 CLRQ. = =(SP) : 
2C AE DD 007 : PUSHL SCALE : 
7E D4 0072 CLRL. = (SP) : | 
38 AE OF 00727 PUSHAB CLASS_S, DESC aie 
DO AD 9F 0072A PUSHAB INTMED_BAT 3 
000000006 00 C7 FB 007¢0 CALLS #7 FORSCVT _D_TF : 
75 11 00734 BRB 123$ ; 
17 56 D1 00736 116$: CMPL R6, #23 > 1642) 
1A 12 00739 BNE : 
D1 AD 95 0073B TSTB = INTMED_DATA+1 > 1645) 
04 18 0073E BGEQ : 
FF AD 01 88 00740 BISB2 #1, SRC_INFO+7 ; | 
01 DD 00744 117$: PUSHL #1 + 1647 
7E 7C 00746 CLRQ.  =(SP) ; 
2C AE DD 00748 PUSHL SCALE ; 
7E D4 00748 CLRL. =P) : 
38 AE OF 00740 PUSHAB CLASS_S_DESC ; 
DO AD 9F 00750 PUSHAB INTMED_DATA ; 
4F 11 00753 BRB 122$ : 
23 56 D1 00755 118%: CMPL R6, #35 ; 1650 
54 12 00758 BNEQ 124$ ; 
24 = AE FD AD BO 0075A MOVW § SRC_INFO+S, CLASS_S_DESC : 1652 
28 AE F9 AD DO 0075F MOVL SRCTINE OT, CLASS~S~DESC+4 > 1653 
7E 55 BF 9A 00764 MOVZBL #857 -( : 1655 
7E 24 AE CE 00768 MNEGL SCALE, ep) + 1654 
7E D4 0076C CLRL.  -(SP) : 
6C AE 9F OO76E PUSHAB TEMP_BUF ; 
34 AE OF 00771 PUSHAB CLASS $_DESC : 
000000006 00 05 FB 00774 CALLS #5, OTSSCVT_T_H ; 
6E 50 00 00778 MOVL 0; STAT ; 
6€ EB 0077E BLBS STATUS, 119% + 1657 
0918 31 00781 BRW $ F 
61 AE 95 00784 1198: TSTB  TEMP_BUFI+1 > 1659 
4 18 0787 BGEQ \ 208" ; 
FF AD 1 88 00789 BISB2 SRC NFQ*7 : 
24 «AE 2 a 0780 1208:  MOVW +56 LRSS. § ESC : 1661 
28 OA 2c «AE 9E 00791 MOVAB TEMP _BUF2, “erage. S_DESC+4 : 166¢ 
1 bp 0796 PUSHL > 166 
— 7C 079 CLRO Wisp) ; 
7E D4 OO79A CLRL = = (SP) ; 
7E 04 0079C 121$: CLRL -(SP) ; 
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LIBSCVTDXDX 


LIBSCVTDXDX LIBSCVT_DX_DX any to data type conversion 16-50 $ep-1984 743 AX-11 Bliss-32 V4.0-74 Page 68) 
1-009 The conversion routines UPI Level ep-1984 13:10:52 — Eefarte seed fecvtox.39,1 9 28) 
28 OA AE 9E 00917 MOVAB TEMP BUF , CLASS_S_DESC+4 : 1778 
a 36 AE 06 at OVE SCAL ALE, ; 1708 
gs D4 009 CLRL sh S_IN_FRACT : | 
3 11 00924 BRB 154$ : | 
57 CE 009 $ 153$:  MNEGL 5, DIGITS_IN_FRACT : | 
06 6 D1 009¢9 1548: CMPL RG, #6 : 1785. 
18 12 0092C BNEQ © 155$ ; | 
60 AE DO AD 6E 009 : CVTLD INTMED_DATA, TEMP_BUF 1 : 1787 
33 DD 009 PUSHL 5 : 1788 | 
7 DD 00935 PUSHL DIGITS_IN-FRACT : | 
2c «AE OOF 909 7 PUSHAB CLASS _$_DESC ; 
6C AE OF O0093A PUSHAB TEMP _BUF1 : | 
000000006 00 04 FB 9093p CALLS #4 FORSCVT_D_TE : 
5D 11 00944 BRB «1586S ; | 
0c 56 «(1 00946 155$: CMPL R6, #12 : 1791 
19 12 0094 BNEQ  156$ ; 
51 60 AE 9E 00948 MOVAB TEMP_BUF1 + 1793 
50 DO AD 9E 0094F MOVAB  INTMED DATA, RO : 
000000006 00 16 00953 JSB LIBS sscUT AV EROUH. R1 : 
35 FF AD €9 00959 LBC — SRC INFOS? 157$~ + 1795 
61 AE 80 8F 88 0095D B1SB2 He. TEMP. BUF 1+1 : 
2—E 11 00962 BRB 157$ : 1797 
1E 56 D1 00964 156$: CMPL R6, #30 : 1800 
3D 12 00967 BNEQ  159$ ; 
1c AE FD AD 3C€ 00969 MOVZWL SRC_INFO+5, NO_DIGITS + 1802 
2c AE 1c AE DO = AD 1C AE 08 0096 CVTP NO.DiGiTs, *INTRED. DATA, NO_DIGITS, + 1803 
24 «AE 1¢ AE 01 Al 00977 ADDW3 #1, NO_DIGITS, CLASS_S_DESC + 1804 
15 DD 0097D PUSHL #21 + 1806 
7E 7C 0097F CLRQ. = (SP) + 1805 
6C AE 9F 00981 PUSHAB TEMP : 
34 AE 9F 00984 PUSHAB CLASS S_DESC : 
000000006 00 05 FB 0098 CALLS #5, OTSSCVT_T_H ; 
24 ~=AE 32 BO 0098E MOVW #30, CLASS_S "DESC + 1807 
55 DD 00992 157$: PUSHL > 1808 | 
57 DD 00994 PUSHL Digits IN_FRACT ; 
2C =— AE SO9F «(00996 PUSHAB $38 DESC 3 
6C AE 9F 00999 PUSHAB fEMP U ; 
000000006 00 04 FB 0099 CALLS #4, FORSCVT _H_TF ; 
6£ 50 b0 009A3 158$:  MOVL STATUS : | 
2c AE 32 20 : 009A6 159$:  SKPC ns #50, TEMP_BUF2 > 1812 | 
02 12 009AB BNEQ 60$ ; 
51 p4 O9AD CLRL RT : | 
50 2c af O9AF 160$: MOV TEMP _BUF2, RO ; 
54 51 50 C3 00983 SUBL3 RO, R1, BUF OFFSET : 
57 05 00987 TSTL. DISITS.IN_FRACT > 1816 | 
05 iF 00989 BNEQ  161$ : 
50 01 DO 0098B MOVL #1, RO ; 
08 11 0098 BRB 162$ : | 
p4 09CO 161$:  CLRL R0 : 
54 CE A046 SE 009C2 1628: MOV -50(RO)CBUF_OFFSET], FINAL_LEN > 1813. 
54 54 CE 009¢ MNEGL FINAL_LEN, FINAL_LE : | 
03 gE : 9CA BLBC SATUS, 163$ > 1820 | 
0328 31 009CD BRW 33$ ; 
09 F5. AD 81 900 163$:  CMPW DST_INFO+5, #9 > 1824 | 
05 1A 00904 BGTRU 1643 : 
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ett The conversion rout ne, Upi level” : 6- sen-1984 99: 13; 93 LIBRTL.SR REIL Re 31 Page 353 


8 $- $,° Py 
$-238$,- § 
43$-238$,- 3 
44$-238$,- 3 
ost $ : 
0343 31 00D89 BRW 03$ + 2187 
60 AE 5 00D8C 239$:  TSTL TEMP BUF + 2156 
FCB? 31 OODBF BRW 172$ : 
68 60 AE 90 00092 2408: MOVB  TEMP_BUF1, (OUTPUT) + 2160 
1— 11 096 BRB 246$ : 
60 AE p> 0098 241$:  TSTL TEMP BUF + 2166 
FCBD 31 0098 BRw 174$ : 
68 60 AE 80 OD9 2428: NOVY TENE BUF1, (OUTPUT) + 2170 
50 60 AE 9E OODA4 243$: MOVAB TEMP_BUF1, RO + 2175 
012€ 31 OODAS BRW 264$7 ; 
50 60 AE 9E OODAB 244$: MOVAB TEMP_BUF1, RO : 2180 
0134 31 OODAF BRW 266$~ : 
68 60 AE DO O00DB2 245$: MOVL TEMP_BUF1, (OUTPUT) + 2184 
O31E 31 O0DB6 246$: BRW 4 + 1226 
1¢ AE FD AD 3C OODB9 247$: MOVZWL SRC_INFO+S, NO DIGITS + 2194 
DO = AD 1¢ Ac 37 bODBE CMPP4 NO_BIGITS, INTMED_DATA, #1, (PACK_ZERO) ; 
54 DC 00DC MOVPSL R4~ : 
02 02 EF 00DC7 EXTZV #2, #2, R4, R4 : 
54 07 OODCC DECL R4 ; 
04 15 OODCE BLEG  248$ : 
FF AD C1 88 00DD0 BISB2 #1, SRC_INFO+7 : 
20 AE DS OODD4 248%: TSTL SCALE ; 
29 13 90007 BEQL  249$ : 
DO. =—AD 1¢ AE 34 00DD9 MOVP NO DIGITS INTMED_DATA, TEMP_BUF1 : 
55 DO «6AD «OF O0DEO MOVAB  INTMED_DAT : 
54 1C AE SE OODE4 MOVAB NO_ Digrrs RG : 
14 AE 05 DO OODES MOVL #57 20(SP5 : 
4 14 AE 9E OODEC MOVAB 20(SP), R3 ; 
52 60 AE 9E OODFO MOVAB TEMP_BUF1, R2 : 
51 1¢ AE 9E OoDFs MOVAB NO_DIGITS. R1 : 
50 20 AE 9E OODF8 MOVAB SCALE RO : 
000000006 00 16 OODFC JSB LIBS$CVT_ASHP_R1 : 
04 69 8F OOE02 249$: CASEB (R9), #47 #5 : 2197 
02¢9 000F 00E06 250$:  .WORD  251$-250$,- : 
0039 02¢9 OOE OE 0 $- 308,- : 
$-250$,- $ 
$-250$,- 3 
$- Ht 3 
4$-250$ : 
02BA 31 Q0E12 BRW 03$ + 2224 
03 FF AD €9 00E15 251$:  BLBC SRC INFO+7, 2528 > 2203 
011A 31 00619 BRW 738 : 
DO AD 1¢ = AE «(37 OOEIC 2528:  CMPP4 NO_DIGITS, INTMED_DATA, #10, @LRGST_P_LU  ; 2205 
54 DC 00E24 MOVPSL R4” ; 
02 02 EF 00E26 EXTZV #2, #2, R4, RO : 
4 D7 O0E2B DECL ; 
03 if OE 2D BGTR 3 ; 
011B 31 OOEOF BRW 738 : 
00EO 8F 89 OOE é 2538:  BICPSW ; 2209 
DO AD 1C AE 36 OOE CVTPL fon CF IGITS. INTMED_DATA, (OUTPUT) + 2210 
O11E 31 O0E3C BRW > 2el1 
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LIBRTL.SRCJLIBCVTDX.B32;1 
TER P BUF” INTMED_DATA, NO_DIGITS, - 


GITS, CLASS_S$_DESC 
Tee p80 CLASS_S_DEST+4 


CLASS § $_DESC 
Be gOrSSCvT. TH 


SRC_INFO+5, CLASS 4 


DESC 
3BS7 “INFO+1, CLASS_ 3 SC+4 
-(SP) 


MP_BUF2, #255 
MP_BUF2, (OUTPUT) 


= 
Ld 


MP_BUF2, #65535 
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TEMP_BUF2, (OUTPUT) 
TEMP BUF? RO 
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TEMP_BUF2, RO 
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P_BUF2, (OUTPUT) 
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50 000000006 
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000000006 
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000000006 00 
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66 
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ata type conversion 16-Se 
leve 6-Se 
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#LIBS_INVCVT, RO 
TEMP_BUF1, @LRGST_D_LU 
#2, #2, RO, RO 
#LiB$_INTOVF, RO 


#224 
eal (OUTPUT) 
#224 


F 
CLASS_S_DESC 
a5, OTSSCVT_T_H 


TEMP _BUF 1 
CLASS_S_DESC 
#5, OTSSCVT_T_G 


STATUS, 2 4$ 
TEMP _BUF , (OUTPUT) 
290$ 


PoPoNnononoNnonorys 
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7E 55 8F 9A OOFD1 288$: MOVZBL #85, -(SP) 3 2349 
7E 24 AE CE OOFDS MNEGL atsa5- =(SP) + 2348 
7E b4 FO9 LRL : 
Sf OME OF Dorper SUSHAR Crass s DESC , | 
000000006 00 oS F ore CALLS CLA OTSSCVT_T_H : | 
6 0 dO OOFES MOVL RO. STAT : 
4 6f OFEB 289$: BLBC_ STATUS, 294$ + 2351 
68 60 AE 10 28 rEg MOVC3 #16, TEMP_BUF1, (OUTPUT) + 2353 
00E1 31 OOFF 908: BRW 304$ : 1226 
02 69 91 FFG 91$: CMPB (R9), #2 + 2368 
OA 13 OFF BEQL ees : 
OE 69 91 OOFFB CMPB sé), #14 : 
05 13 OOFF BEQL 2928 : 
25 69 91 9199 CMPB ss (RO), -#37 : 
Ab if 010 BNEQ  285$ : 
20 AE D 91005 292$:  TSTL CALE + 2371 
03 12 01008 BNEG 93$ ; 
009A 31 O100A BRW 00$ : 
% «(OE FD AD BO 0100D 2938: MOVW  SRC_INFO+5, CLASS_S_DESC + 2374 
28 OE F9 AD DO 01018 MOVL  SRC-INFO+1, CLASS~S~DESC+4 + 2375 
7E 55 BF 9A 0101 MOVZBL #857 -(SP) : 2377 
7E 24 AE CE 0101B MNEGL SCALE, -(SP) + 2376 
7E D4 O101F CLRL.  =(SP) : 
Sf OME OOF g054 PUSHAB CASS DESC 
000000006 00 05 FB 01027 CALLS as. OTSSCVT_T_H : 
6 50 DO 0102E MOVL RO, STATUS ; 
65 6— £9 01031 294$: BLBC STATUS, 2998 : 2379 
24 «AE 32 BO 01034 MOVW #50, CLASS _S_DESC : 2382 
28 ~=OAE 2c «AE 9E 01038 MOVAB TEMP_BUF2, CCASS_S_DESC+4 : 2383 
09 F5 AD B1 0103D CMPW  =sdDST_INFO+5, #9 > 2385 
05 1A 01041 BGTRU 2958 : 
57 21 DO 01043 MOVL #33, DIGITS_IN_FRACT : 2387 
12 11 01046 BRB 97§ : 
50 F5 AD 3C 01048 295$: MOVZWL DST_ INFO+5, RO : 2389 
50 09 C2 0104C SUBL2 #9, F 
21 50 01 O104F CMPL RO ; 3 : 
03 15 01052 BLEQ  296$ : 
50 e! D0 01094 MOVL #33, RO : 
57 0 DO 01057 968: MOVL Rd, hae recat ; 
04 DD O103A 97$: PUSHL #4 : 2391 
fs D4 0105C¢ CLRL. = ; 
5 pp 105 PUSHL Diet IN_FRACT ; 
30 AE 9F 0106 PUSHAB et Re a5 DESC : 
70 AE 9F 01063 PUSHAB TEMP einai ; 
000000006 00 05 FB 1066 CALLS #5, FORSCVT_H_TE : 
6E 50 00 01 $0 MOVL STAT : 
5¢ of 59 10 BLBC stArUs 3$ : : 93 
2c AE 33 : 197 SKPC #32 #50, TEMP_BUF2 + 2395 
2 ot 7 BNEQ 29 § ; 
1 D4 O107A ELAL ; 
50 2c Ar 9E 0107C 298%: MOV TEMP BUF2, RO : 
56 51 50 t 1086 SUBL3 R BUF _OFFSET : 
54 32 56 «C3 01084 SUBL3 BUF Ol Eset #50, FINAL_LEN > 2396 
10 AE 54 00 01088 MOVL. FINAL_LEN, OUTPUT STR_CEN > 2397 
51 2c AEG6 9E 0108C MOVAB TEMP ‘BUF OtBUF _OFFSETJ> R1 : 2398 
| 
} 
| 


1 188 VTDXDX 


15 
jest _DX_DX any 3 a A i type conversion 16- Sep- 


The conversion rout lev -Sep- 
£8 gigs 
009000006 9 ! i pd 
50 00000000G 8F 9 } a4 2998 
3 6 gf C 01 Ni 300$ 
5 A 7D 010AB 
000000006 98 8 10AE 
ge DO 010B4 301$ 
00000000G_ 8F f D1 01087 
50 000000006 BF 8 195 
04 010C7 
0c 6E €E8 010C8 302$ 
50 6E p00 010CB 
04 Q10CE 
50 00000000G 8F 00 pice 303$ 
04 1906 
02 +" 91 01007 304$ 
05 1B Q10DA 
oc BC 10 AE BO 0100C 
50 01 DO 010E1 305$ 
04 010E4 
0000 010E5 306$: 
7E D4 010E7 
5E DD 010E9 
7E 04 AC 7D Q10EB 
0000v CF 03 FB QO10EF 
04 010F4 
; Routine Size: 4341 bytes, Routine Base: _LIBSCODE + 0154 


; 2368 


2437 1 
; 2369 2438 1 !<BLF/PAGE> 


1986 93:10:53 


AX-11 Blis is V4.0-74 


LIBRTL.SRcJLIBCV toe -B32;1 

MOVL R11, R2 
MOVL  FINAL_LEN, RO 

JSB Lyasseo OPY/R_DX6 
BRB 1$ 
MOVL #LIBS_INVNBDS, RO 
MOVZWL (R10), OUTPUT_STR_LEN 
MOVG R10, 

JSB Lies; sCOPY gD X0X6 
MOVL R 

CMPL TATUS. MF es. STRTRU 
BNEG 02$ 
MOVL #LIBS$_OUTSTRTRU, RO 
BLBS STATUS, 304$ 
MOVL STATUS, RO 
MOVL #LIBS_FATERRLIB, RO 
CMPB Ss CAP), -#2 
BLEQU 
MOVW  OUTPUT_STR_LEN, @OUTLEN 
MOVL #1, RO 

RET 

- WORD seve nothing 

CLRL = = (SP) 

PUSHL SP 

Ova 4 (AP), =(SP) 

CALLS #3, CVT_HANDLER 
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IBSCVTDXDX LIBSCVT_DX_DX any to any data type conversion 1$-5e -1984 00:43: AX-11 Bliss-32 V4.0-74 
4-005 The error Randler tor ceheeraten rout ne ers 1 9010.53 HBRTL’ SREILIBCVTDX.03551 
; 237 439 1 XSBITL ‘The error handler for conversion routine’ 
3; 237 440 1 ROUTINE CVT_HANDLER ( ! Conversion routine's handler 

: 2374 441 1 $1G ! Signal arguments. 
; 2375 rr 1 MECH ! Mechanism arguments. 
3; 2576 443 1 = 
; 2377 444 1 
; 2578 445 1 !4+4 
; 2379 446 1 ! FUNCTIONAL DESCRIPTION: 
; 2380 447 1! 
; 2381 448 1! This handler will resignal opcode reserved to digital and call 

; ti) step : } LIBSSIG_TO_RET for every other case. 
H 5 84 seat 1 ! FORMAL PARAMETERS: 
; 2385 sceg 1! 
; 2386 455 1! $1G _rr.r A counted vector of parameters describing the condition. 
3 tet Stee : } MECA.rr.r A counted vector of parameters from CHF. 
; $134 456 1 ! IMPLICIT INPUTS: 
; § 90 457 1! 
: 2391 458 1! NONE 
3 229 2459 1! 
; 239 2460 1 ! IMPLICIT OUTPUTS: 
3 2394 2461 1! 
3; 2395 2462 1! NONE 
; 2396 2465 1! 
; $344 sete } : COMPLETION STATUS: (or ROUTINE VALUE:) 
; 2399 2466 1! SS$_RESIGNAL when opcode reserved to digital exception, any other case 
; 2400 2467 1! will result in an unwind to the caller of establisher with RO containing 
3: 2401 2468 1! the condition value. 
3; 2402 2469 1! 
; 2403 2470 1 ! SIDE EFFECTS: 
3 2404 2471 1! 
; 2405 2472 1! NONE 
3; 2406 2473 1! 
3; 2407 2474 1 N= 
3; 2408 2475 1 
3; 2409 2476 2 BEGIN 
; 2410 2477 2 
3; 2411 2478 § EXTERNAL ROUTINE 
; sels 2479 LIB$SIG_TO_RET : NOVALUE, 
3 241 2480 2 LIBSMATCH_COND; 
3 2414 2481 
3 soi? sins MAP 
3: 2416 48 SIG : REF VECTOR, 
: soir 484 MECH : REF VECTOR; 
3: 24618 485 
3 sel2 $36 2 !+ "gi 
: 2420 48 ‘Call LIBSSIG_TO_RET if this is mot an UNWIND, or opcode reserved to digital. 

: 2421 488 ‘Otherwise resignal. If caller of LIBSCVT_DX_DX has LIBSEMULATE then it will 

3 $s§ 489 'be given the chance to handle the fault. In case of UNWIND the SS$_RESIGNAL 

; s 490 ‘is of course ignored. 
: $058 ton 5° 
; 337 8 IF (LIBSMATCH_COND (SIG C1], ZREF (SS$_UNWIND), ZREF (SS$_OPCDEC))) GTR O THEN RETURN (SSS$_RESIGNAL); | 
: 495 | 
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The error Randler for conversion rout 6-Sep-1984 LIBRTL.SRC is Scvt -B32;1 
‘Translate ali numeric exceptions to this facility's code. 

re 4 ;Also, translate SS$_ROPRAND to LIBS_ROPRAND. 

639 $16 ae” (SELECTONE .SIG (1) OF 

501 SSS_INTOVF] : LIBS$_ ph aad 

206 SS$_DECOVF) : igh 18S DECO 

50 SSS_FLTOVF, SS$_FLTOVF an _FLTOVF; 

504 SS$_FLTUND. SS$_FLTUND’F “FLTUND; 

505 SS$-ROPRAND] : CIB$_ROPRAND 

506 OTHERWISE) : .S1G CT]; 

507 § TES); 

508 LIB$SIG fo RET (.SI1G, .MECH) 

509 2 RETURN T; ! Never gets here 

510 1 END; i End of CVT _HANDLER 


.EXTRN LIBS$SIG_TO_RET, LIBSMATCH_COND 
0004 00000 CVT_HANDLER: 


WO Save R2 
SE 08 % 00002 SUBL2 #8, SP 
04 AE 043c BF 3C 00005 MOVZWL #1084, 4(SP) 
04 AE 9F 00008 PUSHAB 4(SP) 
06 AE 0920 BF 3C 0000E MOVZWL #2336, 4(SP) 
04 AE 9F 00014 USHAB 4(SP) 
52 04 AC DO 00017 OVL SIG, R2 
04 A2 9F 0001B PUSHAB 4(R2) 
000000006 00 03 FB OOO1E CALLS #3, LIBSMATCH_COND 
50 D5 00025 TSTL = RO 
06 15 00027 BLEQ 1$ 
50 0918 8F 3C¢ 90029 MOVZWL #2328, RO 
04 0002E T 
50 04 A2 00 000¢F 1$: MOVL 4(R2) 
0000047c BF 50 01 909 3 CMPL 0, rite 
09 12 0003A BNEG 
50 000000006 8F 00 0003C MOVL § #LIBS_INTOVF, RO 
SE 11 00043 BRB 
000004A4 BF 50 01 90045 2$: CMPL RO, #1188 
09 12 0004C BNEQ 3$ 
50 000000006 8F 00 OO04E MOVL #LIBS_DECOVF, RO 
4C 11 0005 BRB 
0000048C =F 50 D1 00057 3s: CMPL = RO, - #1164 
09 13 0005€ BEQL 
00000484 = 8F 0 01 00060 CMPL = RO, #1204 
09 12 00067 BNEQ $ 
59 000000006 +8F 00 00069 4$: MOVL # #LIBS_FLTOVF, RO 
31 11 00070 BRB 9$ 
0000049 =F 0 01 0078 5$: CMPL RO, #1180 
09 13 0007 BEQL 
000004C4 BF 0 Di 0007B CMPL = RO, #1220 
09 12 00082 BNEQ 
50 000000006 8F 00 0084 6$: MOVL § #LIBS_FLTUND, RO 
16 11 00088 BRB 9$ 
00000454 8F 50 01 0008D 7$: CMPL RO, #1108 
09 12 00094 BNEQ 8S 
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LIBSCVTDXDX LIBSCVT_DX_DX any to any data type conversion 15-42 Sep-1984 0 tf AX-11 Bliss-32 V4.0-74 Page 81 
1-009 The error Randler for conversion’ rout ine gaeepo 1986 3:33 LIBRTL.SRC Liscvt 15x.039;1 . afl 
50 00000000G 8F 00 96 MOVL $185. ROPRAND, RO 3 
04 11 9D BRB F 
50 04 A2 00 OF 8$: MOVL aahels RO ; 2506 
04 A2 5 bo OA3 9$: MOVL RO, 4(R2) 3: 2499 
7E 04 AC 7D OOOA mova 6, -(SP) > 2508 
00000000G 00 02 FB QOOAB CALLS #2, LIBSSIG_TO_RET 3 
50 01 00 0008 MOVL #1, RO : 2509 
04 0008 RET 3; 2510 
; Routine Size: 182 bytes, Routine Base: -_LIBSCODE + 1249 
2444 2511 1 END ! End of module LIBSCVTDXDX. | 
> 24465 seig 1 
5u46 $518 0 ELUDOM | 
$ PSECT SUMMARY 
: Name Bytes Attributes 
: _LIBSCODE 4863 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) | 
| 
; Library Statistics | 
SRS a ge cue ae Rabciet an ae eee Symbols -------~- Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28:CSYSLIBISTARLET.L32;1 9776 36 0 581 00:00.7 
é COMMAND QUALIFIERS 
: BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACE/LIS=LIS$:LIBCVTDX/OBJ=OBJ$:LIBCVTDX MSRC$:LIBCVTDX/UPDATE=(ENHS$:LIBCVTDX) 
; Size: 4523 code + 340 data bytes 
: Run Time }:96- 6 
Elapsed Tine: 4:11.9 


; Lexemes/CPU-Min: 15493 
; Used: 1281 pages 


> Lines/CPU Min: 
: Compiietion Complete 
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